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0120 6201 

0121 6244 

0122 7740 

0123 7400 

0124 7600 

0125 5403 



2 ©"DEC 


* 


XK'CRRO 






' EBRO 


xion WT 




XCOMPl 




XC0MP2 


C0MP2 


XRDSTi 




XRDC!"** 


RDCM 


XRDAD# 


ROAD 


X5DKP* 


SDKP 


XLDCMj 


tiOCM 


XLOC A f 


LDC A 


XLDAD t 




XCLDR, 


CLDR 




rdcr 


Xlomn , 




XRDBF / 




X P P N , 




XFROC X J 


froc t 


xtoct # 




XCRLF f 


UPO N E 




LOTRK 


XH I T R K * 


hitrk 


C Y L 4 5 0 t 


4500 


TR K 2 1 2 > 


4$ 2 0 








0 


D R 1 V S V # 


0 




0001 


K0002 * 


0002 


KOO 0 3 » 




K0004, 


0004 


K0005, 


0005 


K0006, 


0006 


K0007* 


0007 


K1234, 


1234 


K2000, 


2000 



K3000, 3000 
K4000f 4000 
K6000^ 6000 

K7000» 7000 

K7760, 7760 

K7700, 7700 

K0077, 0077 

K2525, 2525 

K5252, 5252 

K5000, 5000 

K7771, 7771 

KOOn, 0017 

K0037, 0037 

KCDF, cor 

KRHf, RHF 

K7740/ 7740 

K7400, 7400 

K7600, 7600 

K5403, 9403 
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13194 


0126 


0770 


K0770, 


0770 




0127 


7007 


K7007, 
J 


7007 








DECIMAL 




O130 


7764 


Mi2, 
/ 


•12 








OCTAL 






0131 


7774 


/ 

M4f 






0132 


0000 


RECO, 


0 




0133 


0000 


REGl , 


0 




0134 


0000 


5BCNT1 


f 0 




0135 


0000 


TCNTRl 


f 0 




0136 


0000 


TCNXR2 


r 0 




0137 


0000 


TCNTR3 


0 




0140 


0000 


TCNTP4 


0 




0141 


0000 


TCNTR5 


0 




0142 


0000 


TCNTR6 


0 




0143 


0000 


/ 

GOREGl, 


0 




0144 


0000 


GDREG2, 


0 




0145 


0000 


CRREGl* 


0 




0146 


0000 


CRREG2# 


0 




0147 


0000 


STREG# 


0 




0150 


oooo 


DBPEG, 


0 




0151 


0000 


CHREG, 


0 




0152 


0000 


Dareg, 


0 




0153 


0000 


CAREG, 


0 




0154 


0000 


ADPEG, 


0 




0155 


0000 


DTBEG, 


0 




0156 


0000 


ACREC, 


0 




0157 


0000 


HOMEMA, 


0 




0160 


0000 


RAPCNT, 


0 




0161 


2200 


STCON, 


2200 




0162 


0011 


CRWROi, 


oou 




0163 


6047 


CRWRD2( 


6047 




0164 


0000 


DATCNTi 


0 




0165 


0000 


5AVDAT, 


0 




0166 


0306 


K0306i 


0306 




0167 


5373 


K5373, 


5373 




0170 


5300 


K5300, 


5300 




0171 


6304 


K6304, 


6304 




0172 


3240 


ENDTRK, 


3240 




0173 


7777 


SOFERR, 


7777 




0174 


0000 


SAVpcr, 


0 




0175 


0200 


RESTRI, 


0200 ■ 






0200 


• 200 






0200 


5206 


/ 

BGKf 


JMP 


,4-6 


0201 


5777* 




JMP 


MANUAL 


0202 


5776' 




JHP 


CHANG 


0203 


5775* 




JMP 


MANPRO 


0204 


5774* 




JHP 


AUTPDO 
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/TO NORMAL TEST 

/TO MANUAL TEST 

/TO CHANGE lOT DEVICE COOES 

/CHECK MANUAL WRITE PROTECT 

/CHECK PROGRAM WRITE PROTECT 





V142 


20-DEC 


• 73 




1 JI54 


0205 


5575 




JHP 


I 


R£STRT 


0206 


6224 




Rir 






0207 


3157 




DCA 




HOMEMA 


0210 


1157 




TAD 




HOMEKA 


02 U 


1120 




TAD 




KCDF 


0212 


3222 




OCA 




PHSrLD 


021i 


1121 




TAD 




KRHr 


0214 


6201 




CDF 




0 


0215 


3472 




DCA 


I 


KOOOi 


02U 


1125 




TAD 




KS403 


0217 


3473 




DCA 


I 


K0002 


0220 


1034 




TAD 




XNTRQ 


0221 


3474 




OCA 


J 


K0003 


0222 


7402 


PPSFLUi 


r HtT 






0223 


7604 




LAa 






0224 


0074 




AND 




K0003 


0225 


3071 




DCA 




DR2VSV 


0226 


7604 


/ 


LAS 






0227 


0016 




AND 




K0400 


0230 


7640 




SZA 


CLA 




0231 


1071 




TAD 




DRZVSV 


0232 


7104 




CLL 


RAL 




0233 


3070 




DCA 




DRIVNO 


0234 


3132 




DCA 




REGO 
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/RESTART AFT£r PROGRAM STOPI 



/MAKE KOMEDF 



/GET RMr rOR iNI, 
/SWITCH FIELD 0 



/JHP I 3 FOB LOC, 2 
/GET ADDRESS RETURN 



/MAKE DF*IF 

/MASK AMOUNT OF ORZVCS 



/MASK SWR3 

/TEST DISK IN iO-ll 

/YESi GET DISK NO, TO TE8I 

/MAKE II IN 9«ig 

/START KITH THIS DRIVE X 



0235 
0236 
0237 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0250 
0291 
0252 
0253 
0254 
0255 



7330 
3144 
1015 
1070 
4450 
4444 
4442 
7610 
5253 
3144 
4453 
4444 
7650 
4437 
4440 
0235 
5300 



0256 1015 

0257 1070 

0260 4450 

0261 4447 



/VERIFY THAT THE DISK DRIVE IN "DRIVNO* 15 
/RCAOy TD SEEK, READ, OR WRITE, STATUS REGISTER 
/SHOULD GO TO 40G0, 
/ 

TSTO 



CLA CLL CML RAR 



TOE, 



DCA 
TAD 
TAD 
LbCKD 
RDSTAT 
ACCHPl 
8KP CLA 
JMP 
DCA 

CLRALL 

ROSTAT 

SNA CLA 

MERROR 

ERROR 

TSTO 

5200 



G0REG2 

K0200 

DRIVNO 



TOE 

GDReG2 



/EXPECTED STATUS 
/SETUP COMPARE REGISTER 
/ENABLE SET DON-g BIT 
/GET CURRENT DRIVE NUMBER 
/LOAD COMMAND REGISTER 
/READ STATUS 
/CHECK RESULTS 
/O.K, SO FAR 
/ERROR STATUS 
/SETUP COMPARE REGISTER 
/CLEAR STATUS 
/READ STATUS 
/SHOULD BE 0000 
/0«K, 4096 LOOPS 
/ERRORS STATUS 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VERIFY THAT «DSKP" SKIPS ON TRANSFER DONE FLAG 

/WHEN THE DISK DRIVE IS READY. 

/ 

T5T1, TAD K0200 /ENABLE SET DqNE BIT 

TAD DRIVNO /CURRENT DRIVE 



ldcmd 

DSKSkp 



/LOAD COMMAND 
/DSKP "DISK SKIP I0T« 
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0262 
0263 
0264 
0265 
0266 
0267 
0270 



027 1 
0272 
0 27 i 
0274 



0277 
0300 
0301 
0302 
0303 
0304 
0305 
O306 
0307 
0310 
0311 
0312 
0313 
0314 
0315 



0316 
0317 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0330 
0331 
0332 
0333 
0334 
0335 



5266 
4453 
<447 
4437 
4440 
0256 
0006 



1015 
1016 
1070 
4450 



0275 7240 

0276 4441 



5313 
4453 
7240 
4441 
7610 
5313 
1015 
1070 
4450 
7340 
4441 
4437 
4440 
0271 
0007 



2132 
1106 
1157 
1070 
4450 
1077 
3350 
4452 
4432 
5346 
IPO 
3350 
7330 
1013 
3144 
4444 



JMP TIE 
CLRALL 
DSKSKP 
NEPROH 
"Clt, ERROR 
TSTl 
0006 

/ 

/VERIFY THAT INT, OCCURES FROM 
/THE TRANSFER DONE FLAG WHEN DISK 
/DRIVE UNDER TEST IS READY TO SEEK, 
/READ, OR WRITE, 



TST2, TAD 
TAD 
TAD 
LDCMD 
CLA CKA 
ION«AT 
JMP 

CLRALL 
CLA CMA 
lONWAT 
SKP CLA 
JMP 
TAD 
TAD 
LDCMD 
CLA CLL CMA 
I ON WAT 
NERROR 
T2E# ERROR 
TST2 
0007 

/ 

/VERIFY A "TIMING ERRoR« DOES OCCUR IN 
/IF A DLAG IS ISSUED WITH THE COMMAND 
/A FUNCTION OF «7», 



K0200 
K0400 
DRIVNO 



T2E 



T2E 

K0200 

DRIVNO 



/ERROR, NO SKIP 
/CLEAR SKIP FLAG OUT 
/DSKP "DISK SKIP lOT" 
/O.K. 4096 LOOPS 
/ERROR, DSKP FAILED 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/ENABLE SET DONE BIT 

/ENABLE DISK INT, 

/GET CURRENT DRIVE 

/LOAD COMMAND REGISTER 

/SOFTWARE FLAG 

/WAIT FOR DISK INTERRUPT 

/ERROR, NO INT. 

/CLEAR THE INT, OUT 

/SOFTWARE FLAG 

/WAIT FOR DISK INTERRUPT 

/0,K. NO INT, 

/ERROR, INT, 

/ENABLE SET DONE BIT 

/CURRENT DRIVE 

/LOAD COMMAND 

/SOFTWARE FLAG 

/WAIT FOR DISK INTERRUPT 

/O.K. 4096 LOOPS 

/ERROR, DISK INT, 

/SCOPE LOOP POINTER 

/TEXT POINTER 



ISZ 
TAD 
■ TAD 
TAD 
LDCMD 
TAD 
DCA 
LDADD 
8KPWAT 
JMP 
TAD 
DCA 



REGO 
K7000 
HOMEMA 
DRIVNO 

K0006 
T3T 



T3E 

K5300 
T3T 



CLA CLL CML RAR 
TAD K0040 
DCA GDREG2 
PDSTAT 



STATUS REGISTER 
REGISTER IS SET TO 



/GET CURRENT DRIVE 
/LOAD COMMAND REGISTER 

/SETUP TEXT POINTER 
/DLAG, LOAD DISK ADDRESS 
/WAIT FOR ERROR SKIP 
/ERROR, NO SKIP OCCURRED 

/SETUP TEXT POINTER 



/SETUP EXPECTED STATUS 
/READ STATUS REGISTER 
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0336 
0337 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
O3S0 



4443 

76i0 
5346 
4453 
3144 
4444 
4442 
4437 
4440 
0317 
0006 



0351 4424 

0352 0357 

0353 5355 

0354 4437 
Q3S9 4440 

0356 0351 

0357 0006 



0360 7301 

0361 3151 

0362 1066 

0363 4423 

0364 0371 

0365 5367 

0366 4437 

0367 4440 

0370 0360 

0371 0006 

0372 5773 

0373 0400 

0374 4710 

0375 4101 

0376 6535 

0377 4600 



0400 7301 

0401 3151 

0402 1066 

0403 4433 

0404 0414 

0405 5212 



tit, 



fcCCMPl 
8KP CLA 
JMP 

CtRAU 
DC& 

BD5TAT 
ACCMPl 

NERRQB 

TST3 
000b 



T3T, 
/ 

/V^BIKY THAT "RliCALIBBATC" SETS TRANSFER 
/DONE THEN DRIVE READY ON SELECTED DRIVE 
/ 



/CHECK RESULTS 

/STATUS 15 0,K, 

/ERROR STATUS INCORRECT 

/CLEAR STATUS 

/SETUP EXPECTED STATUS 

/READ STATUS 

/CHECK RESULTS 

/ALL IS 0,K, 

/ERRORi TIMING SKIP OR STATUS 
/SCOPE LOOP POINTER 

/TEXT POINTER 



T8T4, 



T4T, 
/ 



RECAL 
T4T 

NERBOH 
ERROR 
TST4 
0006 



/"RECALIBRATE" 

/TEXT POINTER 

/ERROR* SKIP OR STATUS 

/0,K, TO NEXT TEST 

/ERRORi DISK SKIP OR STATUS 

/SCOPE LOOP POINTER 

/TEXT POINTER 



/VERIFY THAT "SEEK ONLY* TRACK 312 SETS 
/TRANSFER DONE THEN DRIVE IS READY, 

T5T5# CLA CLL lAC 



T5E, 



T5T, 

/ 



DCA 
TAD 
SEEK 
T5T 
JMP 
HERROR 
ERROR 
TST5 
0006 

JMP I 
TST6 



CMRt'G 
TRK2i2 



.♦1 



/EXTENDED 

/SETUP EXTENDtD BIT 

/GET LOWER DISK ADDRESS 

/SEEK ONLY 312 

/TEXT POINTER 

/ERROR, SKIP OR STATUS 

/0,K, TO NEXT TEST 

/ERRORr DISK SKIP OR STATUS 

/SCOPE LOOP POINTER 

/TEXT POINTER 

/TO NEXT TEST 



PAGE 
/ 

/SOMETHING IS WqRKInG. NOW SEEK ONLY TRACK 312 
/THEN RECALIBRATE AND CHECK TOR NO ERRORS IN STATUS, 

TST6, CLA CLL lAC 



DCA 

TAD 

SEEK 

T6T 

JMP 



CMREG 
TRK212 



/SETUP EXTENDED BIT 

/SEEK ONLY 312 

/TEXT POINTER 

/ERROR, SKIP OR STATUS 
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0406 
0407 



0431 
0432 
0433 
0434 
0435 
0436 
0437 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0450 
0451 
0452 
0453 
0454 
0455 
0456 



4424 
0414 



0410 5212 

0411 4437 



0412 
0413 
0414 



4440 

0400 
5300 



3135 
3136 
1135 
3151 
1 136 
4423 
0456 
52S4 
2136 
7610 
2135 
1135 
7650 
5233 
1136 
1172 
7640 
52 33 
4437 
4440 
0431 
5300 



RECAL 
T6T 

JMP T6E 
NERHDH 
T6E, ERROR 
TST6 

T6T, 5300 

/ 

/ 

/VERIFY A "RECALIBRATE" FORM CYLINDER, 

/SURFACE, AND SECTOR 07777, 

/ 



0415 


3151 


TST7, 


DCA 


CMRl 


0416 


7340 




CLA CLL 


CHA 


0417 


4423 




SEEK 




0420 


0430 




T7T 




0421 


5226 




JMP 


T7E 


0422 


4424 




RECAL 




0423 


0430 




T7T 




0424 


5226 




JMP 


T7E 


0425 


4437 




NERBOR 




0426 


4440 


T7E, 


ERROR 




0427 


04tS 




TST7 




0430 


5300 


T7T, 
/ 


S300 





/•RECALIBRATE* 
/TEXT POINTER 
/ERROR, SKIP OR STATUS 
/O.K. TO NEXT TEST 
/ERROR, STATUS 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/CLEAR EXTENDED BIT 

/SEEK ONLY 
/TEXT POINTER 
/ERROR, SEEK ONLY 
/"RECALIBRATE" 
/TEXT POINTER 
/ERROR, SKIP OR STATUS 
/O.K. TO NEXT TEST 
/ERROR, STATUS 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VERIFY A SEEK ONLY AND FIND ALL ADDRESSES 
/INCREMENTAL SEEK TEST. SEEK 0, 1, 2, 3, ETC, 
/CHECK TIMING AND NQ ERRORS IN STATUS, 

TST8, 



DCA 


TCNTRl 




DCA 


TCNTR2 




TAD 


TCNTRl 




DCA 


CMREG 


/SETUP EXTENDED BIT 


TAD 


TCNTR2 


/LOWER DISK ADDRESS BITS 


SEEK 




/SEQUEHCIAL SEEK ONLY 


T8T 




/TEXT POINTER 


JMP 


TSE 


/ERROR, SKIP OR STATUS 


ISZ 


TCNTR2 


/UPDATE POINTER 


SKP CLA 






ISZ 


TCNTRl 


/SET EXTENDED BIT 


TAD 


TCNTRl 




SNA CLA 




/IS EXTENDED BIT SET YET 


JMP 


T8R 


/NO, CONTINUE 


TAD 


TCNTR2 


/YES 


TAD 


ENDTRK 




SZA CLA 




/WAS IT LAST TRACK 


JMP 


TBR 


/NO, CONTINUE 


NERROR 




/O.K. TO NEXT TEST 
/ERROR, STATUS 


ERROR 




TST8 




/SCOPE LOOP POINTER 


5300 




/TEXT POINTER 



T8E, 



TST, 
/ 

/VEHIFY ft SEEK ONLY AnD FIND ALL ADDRESSES 
/312, 3U, 310, 307, ETC, CHECK FOR 
/NO ERRORS IN STATUS REGISTER, 





VM2 


20-DEC-73 


i3f54 


0457 


i066 


/ 

T8T9, TAD 


TBK212 


0460 


i i i6 


TAD 


K0017 


0461 


3135 


OCA 


TCNTBl 


0462 


7301 


CLA CLL 


I AC 


044^ i 


3136 


DCA 


TCNIR2 


0 464 


1136 


T9R» TAD 


TCNTR2 


0465 


3151 


DCA 


CHReG 


0466 


1135 


TAD 


TCNTPt 


046 7 


4423 






0470 


05 1 1 


T9T 




047 1 


5307 






0472 


7 340 


CLA CLL 


CMA 


0473 


1 1 3b 


TAD 


TCNTRi 


047 4 


3135 


DCA 


TCNTBl 


0475 


7301 


CLA CLL 


lAC 


0*76 


1135 


TAD 


TCNTPl 


0477 


7640 


SZA CLA 




0500 


5264 


JHP 


T9R 


0501 


1136 


TAD 


TCNTR2 


0502 


7650 


SNA CLA 




050i 


5306 


JMP 


T90K 


0504 


3136 


DCA 


TCNTR2 


0505 


5264 


JMP 


T9R 


0506 


4437 


T90K, NERROR 




0507 


4440 


T9E, EBROF! 




0510 


0457 


TST9 




05U 


5300 


T9T» 5300 





/SETUP LOi^ER DISK ADDRESS POINT 

/SETUP EXTENDED POINTER 

/SETUP EXTENDED BIT 

/OECREMCNTAL SEEK ONLY 

/TEXT POINTER 

/ERROR* SKXF OR STATUS 

/DECREMENT 



/riRST TIME 0 YET 
/NO, CONTINUE 

/PAST EXTENDED BIT 
/YES* TEST O.K. 
/CLEAR EXTENDED SIT 
/CONTINUE 

/O.K. TO NEXT TEST 
/ERROR* SEEK ONLY 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VEBIFY A RECALIBRATE FROM ALL 
/CYLINDERS. CHECK ALL CYLINDERS 
/BETWEEN 00000-14500, 
/ 



0512 


3135 


TSTIO, 


DCA 


TCNTRI 


0513 


3136 




DCA 


TCNTR2 


0514 


iU5 


TlORf 


TAD 


TC«TR1 


0515 


3151 




DCA 


CMREG 


0516 


lU6 




TAD 


TCNTR2 


0517 


4423 




SEEK 




0520 


0545 




TiOT 




0S21 


5343 




JMP 


TlOE 


0532 


4424 




RECAL 




0523 


0545 




TIOT 




0524 


5343 




JMP 


TlOE 


0525 


7300 




CLA CLL 




0526 


1136 




TAD 


TCNTR2 


0527 


1013 




TAD 


K0040 


0510 


3136 




DCA 


TCNTR2 


0531 


7430 




SZL 




0532 


2135 




ISZ 


TCNTRI 


0533 


1135 




TAD 


TCNTRI 


0S34 


7650 




SNA CLA 




0535 


5314 




JMP 


TIOR 


0536 


1136 




TAD 


TCNTR2 


0537 


U72 




TAD 


ENDTRK 



/GET EXTENDED BIT 

/SETUP EXTENDED BIT 

/GET CYLINDER 

/SEEK ONLY 

/TEXT POINTER 

/ERROR IN SEEK ONLY 

/"RECALIBRATE" 

/TEXT POINTER 

/ERROR* SKIP OR STATUS 

/GET LAST CYLINDER 
/UPDATE 

/TIME TO SET EXTENDED? 

/YES 

/GET E-XTENDtD POINTER 
/SEI? 

/NO DU THIS CYLINDER 
/GET LAST CYLINDER 
/GET LAST POINTER! 



PALiO V142 



13154 PAGE 1-9 



0540 
0541 
0542 
0543 
0544 
0545 

0546 
0547 



7640 
5314 
4437 
4440 
0512 
5300 

5 7 47 
0600 



0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0640 
0641 



1122 
3135 
4422 
3136 
7004 
3137 
4422 
3140 
7004 
3141 
4422 
0111 
1110 
3160 
U37 
3151 
U36 
4423 
0641 
5237 
1141 
3151 
U40 
4423 
0641 
5237 
2160 
5216 
2135 
5202 
4437 
4440 
0600 
0000 



SZA Clh 

JMP 

NEPROR 

TSTIO 
5300 

JMP I 
TSTll 



TIOR 



,♦1 



/NON-EXISTENT CYLINDER? 

/NO, DO IT 

/0»K. TO NEXT TEST 

/SCOPE LOOP POINTER 
/TEXT POINTER 



/TO NEXT TEST 



/ 

PAGE 
/ 

/SEEK ONLY SEtMg TO BE WORKING, NOW DO 
/A FEW RANDOM SEEKS TO HEALLY SHAKE THE 
/DISK DRIVE UNDER TEST, 
/ 

TSTU, 



TllR3# 



THE, 

TUT, 
/ 

/NOTE! 
/IT 
/OR 
/ 



TAD 


K7740 


/AMOUNT OF PASSES 


DCA 


TCNTPi 


/SETUP COUNTER 


RANADD 




/GENERATE A RANDOM ADDRESS 


DCA 


TCNTR2 


/SAVE IT 


PAL 




/LINK IS EXTENDED BIT 


DCA 


TCNTRi 


/SAVE IT 


RANADD 




/GENERATE A RANDOM ADDRESS 


DCA 


TCNTR4 


/SAVE IT 


RAL 




/LINK IS EXTENDED BIT 


DCA 


TCNTR5 


/SAVE IT 


RANADD 




/GET A RANDOM NUMBER 


AND 


K0077 


/MASK OUT 


TAD 


K7700 


/MAKE COUNT VALUE 


DCA 


RAPCKT 


/SETUP COUNTER 


TAD 


TCNTR3 


/GET EXTENDED BIT 


DCA 


CMBEC 


/SETUP COMMAND REGISTER 


TAD 


TCNTB2 




SEEK 




/SEEK ONLY 


TUT 




/TEXT POINTER 


JMP 


TUE 


/ERROR, SKIP OR STATUS 


TAD 


TCNTR5 


/GET EXTENDED BIT 


DCA 


CHREG 


/SETUP COMMAND 


TAD 


TCNTR4 




SEEK 




/SEEK ONLY 


TUT 




/TEXT POINTER 


JMP 


THE 


/ERROR, SKIP OR STATUS 


I&Z 


RAPCNI 


/UPDATE COUNTER 


JMP 


TUR3 


/SAME LOOP 


ISZ 


TCNTRI 


/UPDATE PASS COUNTER 


JMP 


TURl 


/MAKE NEW ADDRESS 


•iERROB 




/O.K. TO NEXT 


ERROR 




/ERROR, SKIP OR STATUS 


TSTU 




/SCOPE LOOP POINTER 


0000 




/MODIFIED TEXT POINTER 



THE FOLLOWING TWO (2) TESTS wlLL NOT BE RUN 
SINGLE DRIVE TESTING OTHER THAN DRIVE 0 
WHEN MULTI-DRIVE TESTING »!ITH 4 DRIVES, 
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/VERirif 


k "NOT 


READY" ON ALL 










/DPJVES 
/ 


MOT ON 


THt CONTROL. 






0642 


3132 




DCA 


REGO 




/SETUP FOR 4096 PASSES 


0643 


7604 




LAS 








0644 


0016 




AND 


K0400 






0645 


7650 




SNA CLA 






/RUN NEXT TWO TtSTS 


0646 


5252 




JMP 


• •^4 




/HAXSE 


0647 


lo-fi 




TAD 


DRIVSV 




nW rOR OTHER THAN 0 


0650 


7640 










/MORE ON SYSTEM 


0651 


5777* 




JMP 


TST14 -1 




/]£ES» DON'T TEST 


06S2 


7346 




CLA CLh 


CMA RTL 




/AC TO 7775 


0653 


I07i 




TAD 


DRIVSV 




/AMOUNT or DRIVES 


0654 


7650 




SNA CLA 






/ARE THERE FOUR 


0655 


5777 ' 




JHP 


TST14 ml 




/YES, CAN'T TEST 


0656 


7301 


TSTi2# 


CLA CLL 


lAC 






0657 


4453 




CLBALL 






/CLEAR CONTROL 


0660 


U61 




TAD 


STCON 




/EXPECTED STATUS 


0661 


3144 




DCA 


GDREG3 




/SETUP COMPARE 


0662 


7346 




CLA CLL 


CMA RTL 






0663 


t07i 




TAD 


DRIVSV 




/AMOUNT OF DRIVES 


0664 


3135 




DCA 


TCNTRl 




/AMOUNT NOT THERE 


0665 


7301 




CLA CLL 


lAC 






0666 


1071 




TAD 


DRIVSV 




/START WITH THIS DRIVE 


0667 


3136 




DCA 


TCNTR2 






0670 


1136 


T12R# 


TAD 


TCNTR2 






067i 


7104 




CLL RAL 






/SHIFT TO UNIT BITS 


0672 


1015 




TAD 


K0200 




/ENABLE SET DONE 


0673 


4450 




LDCMD 






/LOAD COMMAND 


0574 


4444 




RD5IAT 






/READ STATUS 


0675 


4442 




ACCHPl 






/CHECK RESULTS 


0676 


7610 




5KP CLA 






/O.K. 


0677 


5305 




JMP 


T12E 




/ERROR, STATUS 


0700 


4453 




CLRALL 






/CLEAR STATUS 


0701 


2136 




ISl 


TCNTR2 




/UPDATE DRIVE NO. 


0702 


2135 




laz 


TCNTFl 




/WAS XT LAST DRIVE 


0703 


5270 




JMP 


T12R 




/NO, MORE TO TEST 


0704 


4437 




NERROR 






/O.K. 4096 LOOPS 


0705 


4440 


T13E;, 


ERROR 






/ERROR, STATUS 


0706 


0656 




TSTia 






/SCOPE LOOP POINTER 


0707 


5200 




5300 






/TEXT POINTER 






/VEBIFY 


A DRIVE 


STATUS ERROR ON 


ALL DRIVES 






/NOT ON 
/ 


THE CONTROL , ACTUALLY A 


SELECT 


ERROR, 


0710 


7301 


TST13, 


CLA CLL 


lAC 






0711 


4453 




CLRALL 




/CLEAR 


CONTROL 


0712 


7346 




CLA CLL 


CMA PTL 












TAD 


DRIVSV 




/AMOUNT OF DRIVES 


0714 


3135 




DCA 


TCNTRl 




/SETUP COUNTER 


0715 


7301 




CLA CLL 


lAC 






0716 


1071 




TAD 


DRIVSV 




/START WITH THIS DRIVE 


0717 


3136 




DCA 


TCNTR2 






0720 


1073 


TUB, 


TAD 


K0002 






0721 


1161 




TAD 


STCON 




/EXPECTED STATUS 


0722 


3144 




DCA 


GDREG2 




/SETUP COMPARE REGISTER 
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0723 
0724 
0 7 25 
0726 
0727 
07 30 
0731 
07 32 
07 33 
0734 
0735 
07 36 
0737 
0740 
0741 
0742 
0743 
0744 
0745 
0746 
0747 
075t 
0751 
0752 
0753 
0754 
0755 
0756 
0757 
0760 

0761 
0762 

0777 



1 136 
7104 
1015 
llOJ 
44S0 
4452 
4444 
4442 
7610 
5356 
4453 
1 lAl 
3144 
4444 
4442 
7610 
5356 
7301 
4453 
3144 
4444 
7640 
5356 
2136 
2135 
5320 
4437 
4440 
0710 
5300 

5762 

1000 

1000 
lOOO 



T13E, 



TAD 

CLL PAL 

TAD 

TAD 

LDCMD 

LDADD 

RDSTAT 

ACCMPl 

SKP CLA 

JMP 

CLRALL 

TAD 

DCA 

RDSTAT 
ACCMPl 
SKP CLA 
JMP 

CLA CLL 

CLPALL 

DCA 

RDSTAI 

SZA CLA 

JMP 

I6Z 

ISZ 

JHP 

NERKOH 
ERROR 
TST13 
5300 

JMP I 
T6Ti4 •! 



K0200 
K3000 



STCON 
GDREG2 



T13E 
lAC 



GDREG2 



TUfc 
TCNTR2 
TCNTRl 
T13R 



/GET DRIVE NO, 
/PUT IN UNIT BITS 
/ENABLE SLT DONE 
/FUNCTION SEEK ONLY 
/LOAD COMMAND 
/LOAD AND GO 
/READ STATUS 
/CHECK RESULTS 
/O.K. 

/ERROR, STATUS 
/CLEAR STATUS 
/EXPECTED STATUS 
/SETUP COMPARE 
/READ STATUS 
/CHEAK RESULTS 
/O.K. 

/ERROR, STATUS 

/CLEAR CONTROL 

/SETUP COMPARE 

/READ STATUS 

/STATUS SHOULD BE 0000 

/ERROR, STATUS 



/TRY NEXT DRIVE 
/O.K. 4096 LOOPS 
/ERROR, STATUS 
/SCOPE LOOP POINTER 
/TEXT POINTER 

/TO NEXT TEST 



PAGE ' 
/ 

/VERIFY THAT DISK CAPACITY EXCEEDED DOES OCCURR 



1000 


2132 




ISZ 


REGO 


/SETUP FOR ONE PAS 


1001 


1066 


TST14, 


TAD 


TRK212 




1002 


1012 




TAD 


K0020 




1003 


3135 




DCA 


TCNTRl 


/ADDRESS POINTER 


1004 


7301 


T14R, 


CLA CLL 


I AC 


/ENABLE CLEAR CONTROL BIT 


1005 


4453 




CLRALL 




/CLEAR CONTROL 


1006 


7330 




CLA CLL 


CML RAR 




1007 


1073 




TAD 


K0002 


/EXPECTED STATUS 


1010 


3144 




DCA 


GDREG2 


/SETUP COMPARE REGISTER 


1011 


7301 




CLA CLL 


lAC 


/EXTENDED TRACK BIT 


1012 


1103 




TAD 


K3000 


/FUNCTION SEEK ONLY 


10!3 


1070 




TAD 


DRIVNO 


/CURRENT DRIVE 


1014 


4450 




LDCMD 




/LOAD COMMAND 


1015 


1135 




TAD 


TCNTRl 




1016 


4452 




LDADD 




/LOAD AND GO 


1017 


4432 




SKPWAT 




/WAIT FOR SKIP 
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t020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1030 
1031 
1032 
1033 
1034 
103b 
1036 
1037 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1060 
1061 
1062 



5260 
4444 
4442 

7610 
5254 
7301 
4453 

1151 
iOlb 
4450 
4432 
5260 
7330 
3i44 
4444 
4442 
7010 
5254 
1070 
4450 
3144 
4 444 
4442 
7610 
5254 
2135 
5204 
4437 
4440 
1001 
5300 
5263 
4440 
1001 
0006 



T14SE, 



JMP . 
RDSTAT 
ACCmPI 

SKP CLA 
JMP 

CLA CLL 
CLRALL 
TAD 
TAD 
LDCMD 
SKPftAT 

JMP T14KS: 
CL& CLL CHL RAR 
DCA GDBtG2 
RDSTAT 
ACCMPl 
SKP CLA 
JMP 
TAD 
LDCMD 
DC A 

BDSTAI 
ACCMPl 
SKP CLA 
JMP 
ISZ 
JMP 

NERROH 
EPRDR 
TST14 
5300 
JMP 
ERROR 
TST14 
0006 



T14SE 
I AC 



CMPkiG 
K0200 



DBIVNO 



Ti4S£ 

TCNTRl 

T14R 



/ERROR, NO SKIP 

/READ STATUS 

/CHECK RESULTS 

/STATUS 0»K. 

/ERBOP, STATUS 

/ENABLE CLEAR CONTROL BIT 

/CLEAR CONTROL 

/GET LAST COMMAND 

/GET ENABLE SEEK DONE BIT 

/LOAD COMMAND 

/*AXT rOR DISK SKIP 

/ERi^OR, SKIP 

/EXPECTED STATUS 

/READ STATUS 

/CHECK RESULTS 

/STATUS 0,K. 

/ERROR* STATUS 

/CURRENT DRIVE 

/LOAD COMMAND 

/SETUP COMPARE REGISTER 

/READ STATUS 

/CHECK RESULTS 

/STATl/S 0,K, 

/ERROR 

/LOOP 

/O.K. TO NEXT TEST 

/ERRORr DISK CAPACny EXCEEDED 

/SCOPE LOOP POINTER 

/HODiriED TEXT POINTER 

/TO NEXT TEST 

/ERROR, DISK SKIP 

/SCOPE LOOP POINTER 

/TEXT POINTER 



/VERIFY THAT SKIP AnO STATUS 
/AFTER 256 riRlTE ALL AND READ 
/THIS SHOULD WRITE ALL ZEROS 
/READ ALL ZEROS OFF THE DISK 



DOES OCCUR 

ALL BREAKS, 
ON AND 

SECTOR 00000, 



1063 
1064 
1065 
1066 
1067 
1070 
1071 
1072 
1073 
1 074 
1075 
1076 
1077 
1100 



4431 
1114 
3151 
4425 
1 lOl 
5277 
1017 
3151 
4425 
UOl 
5277 
4437 
4440 
1064 



TlSEf 



KILBUF 




/ZERO WRITE BUFFER 


TAD 


K5000 


/WRITE ALL FUNCTION 


DCA 


CMREG 


/SETUP COMMAND 


DISKGO 




/DISK WRITE ALL 


T15T 




/TEXT POINTER 


JMP 


T15E 


/ERROR* SKIP OR STATUS 


TAD 


KIOOO 


/FUNCTION READ ALL 


DCA 


CMREG 


/SETUP COMMAND REGISTER 


DISKGU 




/DISK READ ALL 


T15T 




/TEXT POINTER 


JMP 


T15E 


/ERROR, SKIP OR STATUS 


NERROR 




/O.K. TO NEXT TEST 


ERROR 




/ERROR, WRITE ALL 


TST15 




/SCOPE LOOP POINTER 
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UOl 5300 Ti5T, 5300 /MODIFIED TEXT POINTER 

/ 

/VERIFY THAT SKIP AND STATUS DOES OCCUR AFTER 
/i28 WRITE ALL AND READ ALL BREAKS. 
/THIS SHOULD <«PIT£ ALL ZEROS ON AND READ ALL 
/ALL ZEROS OFF THE DtSK SECTOR 00000, 
/ 



1102 


U 14 


TST16 


, TAD 


K5000 




/FUNCTION WRITE ALL 


U03 


1014 




TAD 


KOlOO 




/HALF BIT 


1 104 


3151 




DCA 


CMREG 




/SETUP COMMAND 


1105 


4425 




DISKGO 






/DISK WRITE ALL 


1 106 


1121 




T16T 






/TEXT POINTER 


1107 


5317 




JMP 


T16E 




/ERROR, DISK SKIP OR STATUS 


1110 


1017 




TAO 


KlOOO 




/FUNCTION READ ALL 


nil 


5 014 




TAD 


KOlOO 




/HAL? BIT 


1112 


3151 




DCA 


CMREG 




/SETUP COMMAND 


1113 


4425 




DISKGO 






/DISK READ ALL 


1114 


1121 




T16T 






/TEXT POINTER 


1115 


5317 




JMP 


T16E 




/ERROR, SKIP OR STATUS 


1116 


443? 




NERROH 






/O.K. TO NEXT TEST 


tU7 


4440 


Tl6£f 


ERROR 






/ERROR, WRITE ALL 


U20 


U02 




TST16 






/SCOPE LOOP POINTER 


U2i 


5300 


T16T, 


5300 






/MODIFIED TEXT POINTER 






f 

/VERIFY A WRITE 


ALL TO ALL 


OF CYLINDER 


0 






/AND 


USE DATA PATTERN 2525 


+ 5252. 








/make: 


THE FIRST 


T^O WORDS 


IN THE BUFFER 








/EQUAL THE DISK 


ADDRESS, CHECK THE DATA 


WITH 






/READ 


ALL. 








1122 


1122 


/ 

T8Ti7 


, TAD 


K7740 






U23 


3135 




DCA 


TCNIRJ 




/SETUP SECTOR COUNTER 


1124 


1112 


Tl7S» 


TAD 


K2925 






U25 


4430 




FILBUr 






/FILL OUTBOUND BUFFER 


1126 


1114 




TAD 


K5000 




/FUNCTION WRITE ALL 


1127 


3151 




DCA 


CMREG 




/SETUP COMMAND 


1130 


1135 




TAD 


TCNTRl 






1131 


0117 




AND 


K0037 




/MASK OFF SECTORS 


1132 


3463 




DCA I 


XLOTRK 




/SETUP ADDRESS WORD IN BUFFER 


ii33 


1070 




TAD 


DRIVHO 




/GET DRIVE NUMBER 


1134 


3464 




DCA I 


XHITRK 




/SETUP ADDRESS WORD IN BUFFER 


1135 


1463 




TAD I 


XLOTRK 






1136 


4435 




DISKGO 






/DISK WRITE ALL 


1137 


1162 




T17T 






/TEXT POINTER 


1140 


5360 




JMP 


T17E 




/ERROR, SKIP OR STATUS 


1141 


4431 




KILBUF 






/KILL DATA BUFFER 


1142 


1017 




TAD 


KlOOO 




/FUNCTION READ ALL 


U43 


3151 




DCA 


CMREG 




/SETUP COMMAND 


1144 


I 135 




TAD 


TCNTRl 






1145 


0117 




AND 


K0037 




/MASK OF SECTORS 


1146 


4425 




DISKGO 






/DISK READ ALL 


U47 


1162 




T17T 






/TEXT POINTER 


U50 


5360 




JMP 


T17E 




/ERROR, STATUS OR SKIP 


1151 


1112 




TAD 


K2525 






U52 


4427 




FIGURE 






/i^fORD BY WORD COMPARE OF DATA 
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ltS3 7610 
US4 5960 



115S 

U57 
U60 
1161 
1162 

1163 
1164 



213S 
5334 
4437 
4440 
1122 
5373 

5764 
1200 



Tl?Ii 



PACE 



SKP CLA 
JhP 
l$Z 
JH9 

NERROB 
ERROR 
TStl7 
5373 

JMP I 
TSTle 



TCNTPl 
T17S 



/THIS SECTOR O.K. 
/ERROR* DATA 
/UPDATE SECTOR COUNTER 
/TRY NEXT SECTOR 
/O.K, TO NEXT TEST 
/ERROR, READ khh 
/SCOPE LOOP POINTER 
/TEXT POINTER 

/TO NEXT TEST 



1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1210 
1211 
1212 
1213 
1214 
121S 
1216 
1217 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1230 
1231 
1233 
1233 
1234 
1 235 
1236 
1237 



1122 
3135 
1113 
4430 
1104 
3151 
U35 
0117 
3463 
1070 
3464 
1463 
4425 
1237 
5235 
4431 
3151 
1135 
0117 
4425 
1237 
5235 
1113 
4427 
7610 
5235 
2135 
5202 
4437 
4440 
1200 
5373 



/VERIFY k WRITE DATA TO ALL OF CYLINDER 
/AND USE DATA PATTERK 5252 + 2525, 
/MAKE THE riRST TWO WQRpS OF THE BUFFEP 
/EQUAL THE DtSK ADDRESS, CHECK THE 
/DATA WITH READ DATA, 
/ 

K7740 
TCNTRl 
K5252 



TSTlfli 



Ties, 



TAD 
DC A 
TAD 

riLBUF 
TAD 
DCA 
TAD 
AND 
DCA I 
TAD 
OCA I 
TAD I 
D25KG0 
TiST 
JMP 

KILBUr 
DCA 
TAD 
AND 

DXSKGO 
TlBT 
JMP 
TAD 

FIGURE 
SKP CLA 
JMP 
ISZ 
JMP 
NEPROR 
Tl8E, ERROR 
TST18 
Tl8I» 5373 
/ 

/VERIFY THAT DISK STOPS BPEAK AFTER 128 



K4000 

CHREG 

TCNTRl 

K0037 

XLOTRK 

DRIVNO 

XHITRK 

XLOTRK 



CMREG 

TCNTRl 

K0037 



T18E 
K5252 



Ti8E 
TCNTRl 

Ties 



/SECTOR COUNTER 

/FILL OUTBOUND BUFFER 
/FUNCTION WRITE DATA 
/SETUP COM^^AND 

/MASK OF SECTORS 

/SETUP ADDRESS WORD IN BUFFER 

/GET DRIVE NUMBER 

/SETUP ADDRESS MORD IN BUFFER 

/GET ADDRESS 

/DISK WRITE DATA 

/TEXT POINTER 

/ERROR, STATUS OR SKIP 

/CLEAR DATA BUFFER 

/SETUP COMMAND 

/MASK OFF SECTORS 
/DISK READ DATA 
/TEXT POINTER 
/ERRORr STATUS OR SKIP 

/WORD BY WORD COMPARE OF DATA 

/THIS SECTOR O.K, 

/ERROR, DATA 

/UPDATE SECTOR COUNTER 

/TRY NEXT SECTOR 

/O.K. TO NEXT TEST 

/ERROR, DATA BREAK 

/SCOPE LOOP POINTER 

/TEXT POINTER 
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/Zr THE HALF BIT IS SET, THE REMAINDER OF THE 

/THE BUFFER SHOULD BE 0000, 

/THE FIRST TKU WORDS OF THE BUFFER SHOULD 

/EOUAL THE ABSOLUTE DISK ADDRESS, . 

/THE DATA PATTERN UjjED IS 2525 ♦ 5252, 



/ 



1240 


1112 


TST19, 


TAD 


K2525 




1241 


4430 




FILBUF 




/FILL BUFFER wITH DATA 


1242 


1070 




TAD 


DRIVNO 




1243 


3464 




DCA I 


XHITRK 


/MAKE DISK ADDRESS «4DRD 


1244 


3463 




DCA I 


XLOTRK 


/MAKE DISK ADDRESS MORO 


1245 


1114 




TAD 


K500C 


/FUNCTION WRITE ALL 


124b 


1014 




TAD 


KOlOO 


/HALF BIT 


1247 


3151 




DCA 


CMREC 


/SETUP COMMAND 


1250 


4425 




DISKGO 




/DISK WRITE ALL 


1251 


1267 




T19T 




/TEXT POINTER 


1252 


5265 




JMP 


T19E 


/ERROR, SKIP OR STATUS 


1253 


4453 




CLRALL 




/CLEAR STATUS 


1254 


4431 




KILBUF 




/ZERO BUFFER 


1255 


1017 




TAD 


KIOOO 


/FUNCTION READ ALL 


1256 


3151 




DCA 


CMREG 


/SETUP COMMAND 


1257 


4425 




DISKGO 




/DISK READ ALL 


1260 


1267 




T19T 




/TEXT POINTER 


1261 


526S 




JMP 


T19E 


/ERRORf 8KIP OR STATUS 


1262 


1112 




TAD 


K2525 




1263 


4426 




HAFCHK 




/WORD BY WORD COMPARE DATA 


1264 


4437 


T190K, 


NERROR 




/O.K, TO NEXT TEST 


1265 


4440 


Tt9E, 


ERROR 




/ERROR. DATA BREAK 


1266 


1240 




T6T19 




/SCOPE LOOP POINTER 


1267 


5373 


T19T, 


5373 




/TEXT POINTER 



/ 

/VERIFY THAT DISK STOPS BREAK AFTER 12S 

/IF THE HALF BIT IS SET. THE REMAINDER OF THE 

/THE BUFFER SHOULD BE 0000. 

/THE FIRST TWO WORDS OF THE BUFFER SHOULD 

/EQUAL THE ABSOLUTE DISK ADDRESS, 

/THE DATA PATTERN USED IS 5252 * 2525, 

/ 



1270 


1113 


TST20, 


TAD 


K52S2 




1271 


4430 




FILBUF 




/FILL BUFFER WITH DATA 


1272 


1070 




TAD 


DRIVNO 




1273 


3464 




DCA I 


XHITRK 


/MAKE DISK ADDRESS WORD 


1274 


3463 




DCA I 


XLOTRK 


/MAKE DISK ADDRESS WORD 


1275 


1114 




TAD 


KSOOO 


/FUNCTION WRITE ALL 


1276 


3151 




DCA 


CMREG 


/SETUP COMMAND 


1277 


4425 




DISKGO 




/DISK WRITE ALL 


1300 


1317 




T20T 




/TEXT POINTER 


1301 


5315 




JMP 


T20E 


/ERROR, SKIP OR STATUS 


1302 


4453 




CLRALL 




/CLEAR STATUS 


1303 


4431 




KILBUF 




/CLEAR BUFFER 


1304 


1017 




TAD 


KIOOO 


/FUNCTION READ ALL 


1305 


1014 




TAD 


KOlOO 


/HALF BIT 


1306 


3151 




DCA 


CHREG 


/SETUP COMMAND 


1307 


4425 




DISKGO 




/DISK READ ALL 


1310 


1317 




T20T 




/TEXT POINTER 



r 



3tl 

1X2 



5315 
4426 



314 443? 

315 4440 



316 
317 



1270 
5373 



T200K* 



JMP 
TAD 

HAFCHK 
NCRROR 
EHROR 
TST20 
5373 
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T206; 
K52S2 



T20T 
f 

/VERIFY A WRITE ALL THEh READ ALL 128 WORDS, 
/THE FIRST TWO WORDS Or THE SUFFER SHOULD 
/EQUAL TH£ ABSOLUTE DXSK ADDRESS, 
/THE DATA PATTERN USED IS 2525 ♦ 5252, 



/ERRQRf SKIP OR STATUS 

/VtORD BY WORD COMPARE DATA 
/O.K. TO NEXT TEST 
/ERROR* DATA BREAK 
/SCOPE LOOP POINTER 
/TEXT POINTEi* 



1320 


1112 


TST21 » 


TAD 


K2525 




U2l 


4430 




FIL8UF 




/FILL BUFFER WITH DATA 


1322 


1070 




TAD 


DBIVNO 




1323 


3464 




DCA 1 


KHITRK 


/HAKE DISK ADDRESS WORD 


1324 


3463 




DCA r 


XLOTRK 


/MAKE DISK ADDRESS WORD 


1325 


Ui4 




TAD 


K5000 


/FUNCTION WRITE ALL 


1 32& 


iOl4 




TAD 


KOlOO 


/HALF BIT 


13 27 


3 1 5 1 




DCA 


CMREG 


/SETUP COHMAKD 


U30 


442S 




DISKCO 




/DISK WRITE ALL 


1331 


1350 




T2iT 




/TEXT POINTER 


1332 


SS46 




JMP 


T21E 


/ERROR, SKIP OR STATUS 


1333 


4453 




CLRALL 




/CLEAR STATUS 


1334 


4431 




KILBUr 




/ZERO BUFFER 


1335 


1017 




TAD 


KIOOO 


/FUNCTION READ ALL 


1336 


1014 




TAD 


KOtOO 


/HALF BIT 


1337 


3151 




DCA 


CMREG 


/SEIUP COMMAND 


1340 


4425 




DISKCO 




/DISK READ ALL 


1341 


1350 




T2iT 




/TEXT POINTER 


1342 


5346 




JMP 


T21E 


/ERROR, SKIP OR STATUS 


1343 


1112 




TAD 


K292S 




1344 


4426 




Hafchk 




/WORD BY WORD COMPARE DATA 


1345 


4437 


T210K, 


NERROR 




/O.K. TO NEXT TEST 


1346 


4440 


T2iEr 


ERROR 




/ERROR, DATA BREAK 


1347 


1320 




TST2i 




/SCOPE LOOP POINTER 


1350 


5373 


T2iT* 
/ 


S373 




/TEXT POINTER 


1351 


5752 




JMP X 




/TO NEXT TEST 


1352 


1400 




TST22 







/ 

1400 PAGE 
/ 

/VERIFY A WRITE ALL TO ALL OF CYLINDER 
/USE DATA PATTERN 2525 ♦ 5252 
/CHECK FOR NO ERRORS XN STATUS, 
/KAKE FIRST TwO WORDS OF EVERY SECTOR 
/EQUAL TO ADDRESS OF SECTOR. 



1400 
1401 
1402 
1403 
1404 



U22 
3135 
1112 
4430 
1135 



TST22, TAD 
DCA 
TAD 

FILBUF 
T22R1, TAD 



K77«0 

TCNTRi 

K2525 

TCNTRI 



2 Vt<> 



/SETUP SECTOR COUNTER 
/FILL BUFFER WITH DATA 



PALIQ 


V142 


20-DEC-73 


13154 


PAGE 1 


-17 






1405 


0117 


AND 


K0O37 






/MASK SECTOR BITS 




1406 


3463 


DCA I 


XLOTRK 






/SETUP ADDRESS WORD IN 


BUFFER 


1407 


1070 


TAD 


DRXVNO 






/GET DRIVE NUMBER 




1410 


3464 


DCA I 


XHITRK 






/SETUP ADDRESS WORD IN 


BUFFER 


1411 


1114 


TAD 


K5000 






/FUNCTION WRITE ALL 




1412 


3151 


DCA 


CMREG 






/SETUP COMMAND 




1413 


1463 


TAD I 


XLOTRK 






/GET TRACK AND SECTOR 




1414 


4425 


DISKCO 








/DISK WRITE ALL 




1415 


1444 


T22T 








/TEXT POINTER 




1416 


5242 


JMP 


T22E 






/ERROR, STATUS OR SKIP 




1417 


2135 


I5Z 


TCMTRl 






/UPDATE SECTOR COUNTER 




1420 


5204 


JMP 


T22R1 




/MORE SECTORS TO GO 








/VERIFY THAT THE DATA WRITTEN 


ABOVE 










/ON CYLINDER 0 WAS O.K. 


CHECK 


WITH READ 


ALL. 






1122 


TAD 


K7740 












3135 


OCA 


TCNTRI 






/COUNTER FOR 37 SECTORS 






4431 


T22K3, KILBUF 








/CLEAR DATA BUFFER 






1017 


TAD 


KIOOO 






/READ ALL FUNCTION 






3151 


DCA 


CHBEG 






/SETUP COMMAND 






1135 


TAD 


TCHTRl 












0117 


AND 


K0037 












4425 


DISKGO 








/DISK READ ALL 






1444 


T22T 








/TEXT POINTER 






5242 


JMP 


T22E 






/ERROR, STATUS OR SKIP 






1U2 


TAD 


K2525 












4427 


FIGURE 








/WORD BY WORD COMPARE OF DATA 




7610 


SKP CLA 








/BUFFER 0,K-, 






5242 


JMP 


T22E 






/ERROR, DATA 






2135 


ISZ 


TCNTPi 






/UPDATE SECTOR COUNTER 






5223 


JMP 


T22R2 






/MORE SECTORS TO CHECK 






4437 


NERROH 








/O.K. TO NEXT TEST 






4440 


T22E, ERROR 








/ERROR, STATUS 






1400 


TST22 








/SCOPE LOOP POINTER 






5373 


T22Ti 5373 








/TEXT POINTER 








/ 

/VERIFY A WRITE 


DATA TO 


ALL OF 


CYLINDER 


0 








/USE DATA PATTERN 5252 


♦ 2525 












/CHECK FOR NO ERRORS IN 


STATUS 












/MAKE FIRST TWO 


WORDS or EVERY 


'sector 










/EQUAL TO ApPRESS OF SECTOR. 








1445 


1 122 


TST23, TAD 


K7740 










1446 


3135 


DCA 


TCNTRI 






/SETUP SECTOR COUNTER 




1447 


1113 


TAD 


K5252 










1450 


4430 


FILBUF 








/FILL BUFFER WITH DATA 




1451 


1135 


T23R1, TAD 


TCNTRI 










1452 


0117 


AND 


K0037 






/MASK SECTOR BITS 




145J 


3463 


DCA I 


XLOTRK 






/SETUP ADDRESS »s'DRD IN 


BUFFER 


1454 


1070 


TAD 


ORIVNO 






/GET DRIVE NUMBER 




1 45b 


3464 


DCA I 


XHITRK 






/SETUP ADDRtSS WORD IN 


BUFFER 


1456 


1104 


TAD 


K4000 






/FUNCTION WRITE DATA 




1457 


3151 


DCA 


CMREG 






/SETUP COMMAND 




1460 


1463 


TAD I 


XLOTRK 






/SECTOR TO LOAD 





PALIO VU2 



t46l 


442S 




DISKCO 




/DISK WRITE ALL 


1462 


1510 




T23T 




/TEXT POlNTtR 


\ 46) 


5 i06 




JMF 


T23t. 


^tnKUK* a I ft I U b OP\ir 


1464 


2135 




ISZ 


TCNTRi 


f\JfUHlZ> PtV-iUrv ^UUfVitR 


1465 


S251 


/ 


JMP 


T23Bi 








/VERIFY 


THAT TKL DATA WRUTtN 


ABOVF 






/ON CXLINDER 0 




WITH BFin hfcTA 


1466 


1 122 




TAD 


K774C 




146? 


3135 




DCA 


TC X R i 




1470 


44 31 


T23R2r 


KILBUF 






1471 


3lSi 




DCA 


CMREG 


/SETUP COMMAND 


I 472 


1135 




TAD 


TCNTRl 




1473 


0117 




AND 


K0037 




1474 


4425 




DISKGQ 




/DISK R£AD DATA 


1475 


1510 




T2SI 




/TEXT POINTER 


1 476 


5306 




JMP 


T23E 


/fRuniS. ST JIT US nR ^IfTD 


1477 


1113 




TAD 


KS252 




1500 


4427 




FIGURE 






1501 


7610 




SKP CLA 




/DATA O.K. 


1502 


5306 




JMP 


T23t 


/ERROR, DATA 


1503 


2135 




ISZ 


TCNTRl 


/UPDATE SECTOR COUNTER 


1504 


5270 




JMP 


T23R2 


/MORE SECTORS TO CHECK 


1505 


4437 




NEPROB 




/O.K. TO NEXT TEST 


1506 


4440 


T23£f 


ERROR 




/ERROR, WRITE ALL 


1507 


1445 




TST23 




/SCOPE LOOP POINTER 


J510 


5373 


T23T# 


5373 




/TEXT POINTER 



/ 

/VERIFY A WRITE ALL TO ALL OF CYLINDER 145 
/AND USE DATA PATTERN 2525 ♦ 5252, 
/THE FIRST TWO WORDS OF THE SECTOR SHOULD 
/EQUAL THE DISK ADDRESS, CHECK IKE DATA 
/WITH READ ALL. 



1511 


1122 


TST24» 


TAD 


K7740 




1512 


3135 




DCA 


TCNTRl 


/SETUP SECTOR COUNTER 


1513 


1112 


T24S, 


TAD 


K252S 




1514 


4430 




FILBUF 




/FILL OUTBOUND BUFFER 


1515 


7301 




CLA CLL 


lAC 




1516 


1070 




TAD 


DRIVNO 


/GET DRIVE NUMBER 


1517 


3464 




DCA I 


XHITRK 


/SETUP ADDRESS wORD IN BUFFER 


1520 


7301 




CLA CLL 


lAC 


/EXTENDED BIT 


1521 


1114 




TAD 


K5000 


/FUNCTION WRITE ALL 


1522 


3151 




DCA 


CMREG 


/SETUP COMMAND 


1523 


1135 




TAD 


TCNTRl 


/SECTOR COUNTER 


1524 


0117 




AND 


K0037 


/MASK OFF SECTOR BITS 


1525 


1065 




TAD 


CYL450 


/ADO IN CYLINDER 


1526 


3463 




DCA I 


XLOTRK 


/SETUP ADDRESS WORD IN BUFFER 


1527 


1463 




TAD I 


XLOTRK 




1530 


4425 




DISKGQ 




/DISK WHITE ALL 


1531 


1556 




T24T 




/TEXT POINTER 


1532 


5354 




JHP 


T24E 


/ERROR, SKIP OP STATUS 


1533 


4431 




KILBUF 




/CLEAR DATA BUFFER 


1534 


7301 




CLA CLL 


lAC 


/EXTENDED BIT 



ALIO 


V142 


20-DEC-73 


13154 


PACE 


I' 


•19 






1535 


1017 


TAD 


KIOOO 










/FUNCTION READ ALL 


1536 


3151 


DCA 


CMPEG 










/SETUP COMMAND 


1537 


1135 


TAD 


TCNTRl 










/SECTOR COUNTER 


1540 


0117 


AND 


K0037 










/MASK OFF SECTORS 


1541 


1065 


TAD 


CYL4S0 












1542 


4425 


DISKCO 












/DISK READ ALL 


1543 


1556 


T24T 












/TEXT POINTER 


1544 


5354 


JMP 


T24E 










/ERROR, STATUS OR SKIP 


1545 


1112 


TAD 


K2525 












1546 


4427 


FIGURE 












/WORD BY hORD COMPARE OF DATA 


1547 


7610 


SKP CLA 












/THIS SECTOR O.K. 


1550 


5354 


JMP 


T24E 










/ERROR* DATA 


1551 


2135 


ISZ 


TCNTRl 










/UPDATE SECTOR COUNTER 


1552 


5313 


JMP 


T24S 










/TRY NEXT SECTOR 


1553 


4437 


NERROR 












/O.K. TO NEXT TEST 


1554 


4440 


T24E, ERROR 












/ERROR, READ ALL 


1555 


1511 


TST24 












/SCOPE LOOP POINTER 


1SS6 


5373 


T24T, 5373 












/TEXT POINTER 


1557 


5760 


/ 

JMP I 












/TO NEXT TEST 


1560 


1600 


TST25 
















1600 


/ 

PAGE 
/ 












/ 






/VERIFY A WRITE 


DATA TO 


ALL 


or 


CYLINDER 


1450 






/AND USE DATA PATTERN 5253 * 


2S2S, 










/THE FIRST TWO 1 


rtORDs or 


THE 


SECTOR 


SHOULD 






/EQUAL THE DISK 


ADDRESS, 


. CHECK 


THE 


DATA 








/WITH READ DATA 














IbOO 


1122 


/ 

T8T25, TAD 


K7740 












1601 


3135 


DCA 


TCNTRl 










/SETUP SECTOR COUNTER 


1602 


1113 


T25S, TAD 


K5252 












160) 


4430 


riLBUF 












/FILL OUTSOUNO BUFFER 


1604 




CLA CLL 


I AC 












1605 


1070 


taU 


DRIVNO 










/GET DRIVE NUMBER 


1606 


3464 


DCA I 


XHITRK 










/SETUP ADDRESS WORD IN BUFFER 


1607 


7301 


CLA CLL 


lAC 










/EXTENDED BIT 


1610 


1 104 


TAD 


K4000 










/FUNCTION WRITE DATA 


1611 


3151 


DCA 


CMREG 










/SETUP COHKAND 


1512 


1135 


TAD 


TCNTRl 










/SECTOR COUNTER 


1613 


0117 


AND 


K00J7 










/MASK Orr SECTOR BITS 


1614 


1065 


TAD 


CYL450 










/ADO IN CYLINDER 


1615 


3463 


DCA I 


XLOTRK 










/SETUP ADDRESS WORD IN BUFFER 


1616 


1463 


TAD I 


XLOTRK 












1617 


4425 


DISKGO 












/DISK WRITE DATA 


1620 


1644 


T25T 












/TEXT POINTER 


1621 


5242 


JMP 


T25E 










/ERROR, SKIP OR STATUS 


1622 


4431 


KIL8UF 












/CLEAR DATA BUFFER 


1623 


7 30 1 


CLA CLL 


I AC 










/EXTENDED BIT 


1624 


J151 


DCA 


CMREG 










/SETUP COMMAND 


lb 25 


5 1 55 


TAD 


TCNTRl 










/SECTOR COUNTER 


lb2b 


0117 


AND 


K0OJ7 










/MASK OFF SECTORS 


1627 


iO^'S 


TAD 


CYL450 












16J0 


4425 


DISKCU 












/DISK RKAD DATA 



/ PALtO V142 



20-DEC-73 UIS.4 PAGE 1.20 



1631 


1644 




T25T 






/TEXT POINTER 


i632 


5242 






T25E 




/ERRORf STATUS OR SKIP 


16 3 i 


mi 




TAD 


K52S2 








4427 










/WORD BY ¥(ORD CQMpAHE C 


1655 


7610 




SKP CLA 






/THIS SECTOR O.K. 


1636 


S242 




JHP 


T25E 




/ERROR, DATA 


1 6 J7 


2 135 




XSZ 


TCNiRi 




/UPDATE SECTOR COUNTEP 


1640 


5202 




JMP 


T25S 




/TRY NEXT SECTOR 


1641 


44 37 










/0»Kf TO NEXT TEST 


1642 


4440 


T25E, 


ERROR 






/ERBORi DATA BREAK 


U4i 


1600 




TST25 






/SCOPE LOOP POINTEP 


U44 


5373 


T25T> 


5373 






/TEXT POINTEP 






/VEHIFY & WRITE 


kLL To ALL Uf CYLINDER 


1450 






/USE DATA PATTEHN 5252 * 


2525 








/CHECK 


FOR HO EPFQPS IN 


STATDS, 








/HAKE 


FIPST T«D 


WORDS OF 


EVERY SECTOR 








/KQUAL 


TO ADDRESS OF SECTOR, 




1645 


1122 


/ 

TST26» 


TAD 


K7740 






1 646 


3135 




DCA 


TCNTBi 




/SETUP SECTOR COUNTEP 


1647 


1113 




TAD 


K52S2 






1650 


4430 




FILBUF 






/rXLL BUFFER hlTH DATA 


1651 


U35 


T26Klf 


TAD 


TCNTRl 






1652 


0117 




AND 


K0037 




/MASK SECTOR BITS 


1653 


1 065 




TAD 


Ci'L45 0 






1654 


3463 




DCA I 


XLOTRK 




/SETUP ADDRESS i*0BD XN 


1655 


7301 




CLA CLL 


I AC 






1656 


1070 




TAD 


DRIVNO 




/CET DRlVt NUMBER 


1657 


3464 




DCA 1 


XHITRK 




/SETUP ADDRESS WORD IN 


1660 


7301 




CLA CLL 


lAC 




/EXTENDED BIT 








TAD 


K5000 




/FUNCTION WRITE ALL 


1662 


3151 




DCA 


CMREG 




/SETUP COMMAND 


1663 


1463 




TAD I 


XLOTRK 




/GET TRACK AND SECTOR 


1664 


4425 




DXSKGO 






/DISK WRITE ALL 


1665 


1716 




T26T 






. /TEXT POINTER 


1666 


5314 




JMP 


T26E 




/ERROR? STATUS OP SKIP 


1667 


213S 




ISZ 


TCNTRl 




/UPDATE SECTOR COUNTER 


1670 


S2S1 




JMP 


T26Ri 




/MORE SECTORS TO GO 



/VERIFY THAT TKfc DATA WRITTEN ABOVE 
/ON CYLINDER 1450 WAS 0,K, CHECK WITH READ ALL, 
/ 



1671 


1 122 




TAD 


K7740 




1672 


31 35 




DCA 


TCNTPi 


/COUNTER FOR 37 SECTORS 


1673 


4431 


T26R2, 


KILBUF 




/CLEAR DATA BUFFER 


1674 


7301 




CLA CLL 


lAC 


/EXTENDED BIT 


1575 


1017 




TAD 


KIOOO 


/READ ALL FUNCTION 


1676 


3151 




DCA 


CMPEG 


/SETUP COMMAND 


1677 


1135 




TAD 


TCNTRl 




1700 


0117 




AND 


K0037 




1701 


1065 




TAD 


CYL450 




1702 


4425 




DiSKGO 




/DISK READ ALL 


1703 


1716 




T26T 




/TEXT POINTER 


1704 


5314 




JMP . 


T26E 


/ERROR, STATUS OR SKIP 



PALIO V142 



1705 
1706 
1707 
1710. 
1711 
1712 
1713 
1714 
1715 
1716 



1113 
4427 
7610 
5314 
2135 
5273 
4437 
4440 
1645 
5373 



T26E, 



TAD 

FIGURE 
SKP CLA 
JMP 
ISZ 
JMP 

NERROR 
ERROR 
T5T26 
5373 



13154 PAGE 1-21 
K5252 



T26fc 

TCNTRl 

T26R2 



T26T 
/ 

/VERIFY A WRITE DATA- TO ALL OF CYLINDER 1450 
/USE DATA PATTERN 2S25 ♦ 5252 
/CHECK FOR NO ERRORS IN STATUS, 
/MAKE FIRST TWO WORDS OF EVERY SECTOR 
/EQUAL TO ADDRESS OF SECTOR. 



/WORD BY WORD COMPARE OF DATA 
/BUFFER O.K. 
/ERROR, DATA 
/UPDATE SECTOR COUt-'TER 
/MORE SECTORS TO CHECK 
/O.K. TO NEXT TEST 
/ERROR, STATUS 
/SCOPE LOOP POINTER 
/TEXT POINTER 



1717 


1122 


.TST27, 


TAD 


K7740 




1720 


3135 




DCA 


TCNTRl 


/SETUP SECTOR COUNTER 


1721 


1112 




TAD 


K2S2S 




1722 


4430 




FILBUF 




/FILL SUFFER WITH DATA 


1723 


1135 


T27R1, 


TAD 


TCNTRl 




1724 


0117 




AND 


K0037 


/MASK SECTOR BITS 


1725 


1065 




TAD 


CYL450 




1726 


3463 




DCA I 


XLOTRK 


/SETUP ADDRESS WORD IN BUFFER 


1727 


7301 




CLA CLL 


I AC 




1730 


1070 




TAD 


DBIVNO 


/GET DRIVE NUMBER 


1731 


3464 




DCA X 


XHITRK 


/SETUP ADDRESS WORD IN BUFFER 


1732 


7301 




CLA CLL 


I AC 


/EXTENDED BIT 


17J3 


U04 




TAD 


K4000 


/FUNCTION WRITE DATA 


1734 


3151 




OCA 


CHREG 


/SETUP COMMAND 


1735 


1463 




TAD I 


XLOTRK 


/SECTOR TO LOAD 


1736 


4425 




DISKGO 




/DISK WRITE ALL 


1737 


1767 




T27T 




/TEXT POINTER 


1740 


5365 




JMP 


T27E 


/ERROR, STATUS OR SKIP 


1741 


2135 




ISZ 


TCNTRl 


/UPDATE SECTOR COUNTER 


1742 


5323 




JMP 


T27R1 


/MORE SECTORS TO GO 






/ 

/VERIFY 


THAT THE DATA WRITTEN ABOVE 








/ON CYLINDER 1450 WAS O.K. CHECK WITH 


READ DATA, 


1743 


1122 


f 


TAD 


K7740 




1744 


3135 




DCA 


TCNTRl 


/COUNTER FOR 37 SECTORS 


1745 


4431 


T27B2, 


KILBUF 




/CLEAR DATA BUFFER 


1746 


7301 




CLA CLL 


lAC 


/FUNCTION READ DATA 


1747 


3151 




DCA 


CHREG 


/SETUP COMMAND 


1750 


1135 




TAD 


TCNTRl 




1751 


0U7 




AND 


K0037 




1752 


1065 




TAD 


CYL450 




1753 


4425 




DISKGU 




/DISK READ DATA 


1754 


1767 




T27T 




/TEXT POINTER 


1755 


5365 




JMP 


T27E 


/ERRO^, STATUS OR SKIP 


1756 


1112 




TAD 


K2525 




1757 


4427 




FIGURE 




/WORD BY WORD COMPARE OF DATA 


1760 


7610 




SKP CLA 




/DATA Q.K, 



PALIO V142 



1761 
S?62 
iUi 

n6« 

t765 
1766 
1767 



5 365 
2135 
5 34b 
4437 
4440 
17!7 
5j7i 



T27L* 



JMP 

tsz 

ERPOft 
TST27 
537 3 



T27£ 

TCNTRl 

T27R2 



T27I 
/ 

/SECTOR TIMING TEST 
/VCKIFY THAT WRITE AND HEAD 
/SECTORS. WHEN DOING CONSEC 
/kll KODE, SECTOR THANSFEBS 
/SECONDS. THE PROGRAM WILL 
/NO DONE FLAG IF THIS DOES 



/ERRORf DATA 

/UPDATE SECTOR COUNTER 
/MORE SECTORS TQ CHECK 
/O.K, TO NEXT TEST 

/gRpORf writs: all 

/5C0P£ LOOP POINTER 
/TEXT POINTER 



ALL ARE ACTUALLY DOING CONSECUTIVt: 
UTIVt SECTORS IN WRITE OR READ 

SHOULD OCCUR EVERY 2,5 KILLI- 
REPORT A STATUS ERROR OF 
NOT OCCUR, 



1770 


1157 




TAD 


HOMEMA 




1771 


1070 




TAD 


DBI VNO 




1772 


313? 




DC A 




/SAVE FIELD * DRIVE 


1773 


1 122 


T5T28 t 


TAD 


K 7 740 




177 4 


3135 




OCA 


TC N TR 1 


/SETUP SECTOR COUNTER 


1775 


1114 




TAD 


K5 000 


jvunrrtnu wpttc all 


1776 


3151 




DC A 


CMPEG 




1777 


7 340 




CLA CLL 






2000 


1117 




TAD 


KOO 37 




2001 


4425 




D I S KGO 




/DISK WRITE ALL 


2002 


2052 




T28T 




/TEXT POINTER 


2003 


5250 




JHv 


T2 8 E 


/£RROR» Disk skip or sti 


2004 


1170 




TAD 


K5 300 




200S 


3 25 2 








/MODIFY TEXT POINTER 


2006 


1135 


T2eH# 


TAD 

Ift one 


TCNTRt 




20 07 


7110 




CLL RAR 






2010 


76 3 0 




SZL CLA 




/WRITE OR READ ALL? 


2011 


1104 




TAD 


K4000 


/HERE IF kRXTE ALLl 


2012 


1017 




TAD 


KIOOO 




2013 


1137 




TAD 


TCNTR3 


/GET FIELD ♦ DRIVE 


2014 


3151 




DC A 


CMREG 


/SAVE FOP ERROR TYPEOUT 


2015 


1151 




TAD 


CMREC 




2016 


6746 


T2810A, 


DLDC 




/LOAD COMMAND REGISTER 


2017 


1067 




TAD 


BGNBUF 


/SAVE rOF ERROR TlfPEOUT 


2020 


3153 




DC A 


CAREG 


2021 


1153 




TAD 


CAREG 




2022 


6744 


T28IOB, 


DLCA 




/LOAD CURRENT ADDRESS 


2023 


1135 




TAD 


TCNTRl 




2024 


0117 




AND 


K0037 


/MASK SECTOR BITS 


2025 


3152 




DC A 


DAReG 


/SAVE FOR ERROR TYPEOUT 


2026 


1152 




TAD 


DAREG 




2027 


6743 


T28IOCf 


DLAG 




/LOAD AND GO 


2030 


1105 




TAD 


K6000 




2031 


3136 




DC A 


TCNTR2 


/TIME COUNTER 


20 32 


674S 


T28IOD, 


OPST 




/READ STATUS REGISTER 


20 33 


3147 


OCA 


STRtG 


/SAVE FOR ERROR TYPEOUT 


2034 


1147 




TAD 


STREG 




2035 


1104 




TAD 


K4000 




2036 


7650 




SNA CLA 




/WAS STATUS 4000 


2037 


5245 




JHP 


T280K 


/YE5» GOT TRANSFER DONE 
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2040 2U6 

2041 5232 

2042 4447 

2043 5242 

2044 5250 
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ISZ TCNTR2 
JMP T28100 
DSKSKP 
JMP ,-1 
JHP T2eE 
2045 2135 T280K, ISZ TCNTPl 
2(j46 5206 JMP T2fiR 

2047 4457 NERROR 

2050 4440 T2e£, ERROR 

2051 1773 TST28 

2052 530O T2eTi 5300 



/UPDATE TXHE COUNTER 

/WAIT FOR GOOD STATUS 

/ERROB» HAVE TO WAIT FOR FLAG 

/HANG IF NO SKIP 

/ERRDRr WRITE ALL 

/UPDATE SECTOR COUNTER 

/MORE TO TEST 

/O.K. TO NEXT TEST 

/ERROR, WRITE OR READ ALL 

/SCOPE LOOP POINTER 

/TEXT POINTER 



/ 

/SECTUR TIMING TEST 

/VERIFY THAT READ AND WRITE DATA ARE NOT DOING CONSECUTIVE 
/SECTORS, WHEN TRYING TO DO CONSECUTIVE SECTORS IN READ DATA 
/OR WRITE DATA MODE, SECTOR TRANSFERS SHOULD OCCUR EVERY DISK 
/REVOLUTION, APROX. EVERY 40 MILLISECONDS, THE PROGRAM WILL 
/REPORT AN ERROR OF A DONE FLAG IF THIS DOES NOT OCCUR 



/ 



2053. 


1122 


TST29, 


TAD 


K7740 




2054 


3135 




DC A 


TCNTRl 


/SECTOR COUNTER 


2055 


3151 




DC A 


CMREG 


/SETUP COMMAND 


2056 


1117 




TAD 


K0037 




2057 


4425 




DISKGO 




/DISK READ DATA 


2060 


2126 




T29T 




/TEXT POINTER 


2061 


5324 




JHP 


T29E 


/ERROR, SKIP OR STATUS 


2062 


1170 




TAD 


K530a 




2063 


3326 




DC A 


T29T 


/MODIFY TEXT POINTER 


2064 


1135 


T29K, 


TAD 


TCNTRt 




2065 


7110 




CLL RAR 




2066 


7630 




SZL CLA 




/READ DATA OR WRITE DATA 


2067 


1104 




TAD 


K4000 


/HERE IF WRITE DATA{ 


2070 


1137 




TAD 


TCNIR3 


/GET FIELD ♦ DRIVE 


207i 


3151 




OCA 


CMREG 


/SAVE FOR ERROR TYPEOUT 


2072 


1151 




TAD 


CMREG 




2073 


6746 


T29IOA, 


DLDC 




/LOAD COMMAND REGISTER 


2074 


1067 




TAD 


BGNBUF 




2075 


315J 




DCA 


CAREG 


/SAVE FOR ERROR TYPEOUT 


2076 


1153 




TAD 


CAREG 




2077 


6744 


T29IOa# 


DLCA 




/LOAD CURRENT ADDRESS 


2100 


1135 




TAD 


TCNTRl 




2101 


0117 




AND 


K0037 


/MASK SECTOR BITS 


2102 


3152 




DCA 


DAREG 


/SAVE FOR ERROR TYPEOUT 


2103 


1152 




TAD 


DAREG 




2104 


6743 


T29IOCr 


DLAG 




/LOAD AND CO 


2105 


1105 




TAD 


K6000 




2106 


3136 




DCA 


TCNTR2 


/TIME COUNTER 


210? 


3144 




DCA 


G0REG2 


/EXPECTED STATUS 


2110 


6745 


T2910D, 


ORST 




/READ STATUS REGISTER 


2111 


3147 




DCA 


STREG 


/SAVE FOR ERROR TYPEOUT 


2112 


1147 




TAD 


STPEG 




2113 


7640 




SZA CLA 




/STATUS O.K.? 


2114 


5324 




JMP 


T29E 


/ERROR IN STATUS 


2U5 


2136 




ISZ 


TCNTR2 


/UPDATE TIME COUNTER 





VU2 


20.DEC 


-73 


Uf 54 


2116 


5310 




JMP 


T2910D 


2it7 


4447 




DSKSKp 




2120 


5317 








2121 


2Ub 


T29UK, 


l&l 


TCNIBl 


2122 


5264 




JMP 


T29R 


2123 


4457 








2124 


4440 


T29t, 


ERROR 




2125 


20S3 




Tata? 




2136 


S300 


T29T# 


5J00 





/WAIT rOP GOOD STATUS 
/EPRORr HAVE TO WAIT FOH FLAG 
/HANG IF NO SKIP 
/UPDATE SECrOH COUKTER 
/MORE TO TEST 
/D,K, TO NEXT T&ST 
/iCRRORr STATUS 
/SCOPE liOOP POIhTER 
/HODlriKO TEXT POINTER 



2127 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2140 
2141 
2142 
2143 
2144 
2145 
214b 
2147 
2150 
2151 
2152 
2153 
2154 
215S 
2156 
2157 
3160 
2161 
2162 
3163 
2164 
216$ 
2166 
2167 
3170 
2171 

2172 
2173 



1107 
3135 
7301 
4453 
4431 
1114 
3151 
1135 
0116 
4425 
2171 
5367 
1017 
3151 
1135 
0U6 
4425 
2171 
536? 
1171 
3371 
7301 
4453 
3143 
3144 
4454 
4443 
7610 
5367 
2135 
5331 
4437 
4440 
2127 
6304 

5773 
2200 . 



/DATA 
/THK C 
/ALL 0 
/ 

TST30, 
T30R* 



TH&NSFEB IS WORKING, NO* CHECK CRC WORD IN 
RC REGISTER AFTER A READ ALL, THE CRC SHOULD BE 
& FOR ALL O'S DATA PATTERN, 



T30Ci 



T30T, 
/ 



/ 

PACE 
/ 



TAD 


K7760 




DC A 


TCNTRl 


/SETUP SECTOR COUNTER 


CLA CLL 


I AC 




CLRALL 




/CLEAR CONTROL 


KILBUF 




/CLEAR BUFFER AREA 


TAD 


K5000 


/FUNCTION WRITE ALL 


OCA 


CKREG 


/SETUP COMMAND 


TAD 


TCNTRl 




AND 


K0017 


/MASK SECTOR BITS 


DI8KG0 




/DISK WRITE ALL 


T30I 




/TEXT POINTER 


JHP 


T30E 


/ERROHr STATUS OR SKIP 


TAD 


KIOOO 


/FUNCTION READ ALL 


OCA 


CMREG 


/SciTUr Ct(MWJlP*u 


TAD 


TCNTJtl 




AND 


K0017 


/MASK SECTOR BITS 


DZSKCO 




/DISK READ ALL 


T30T 




/TEXT POINTER 


JMP 


TJOE 


/ERRORi STATUS DP SKIP 


TAD 


K6304 




OCA 


T30T 


/MODIFY TEXT POINTCH 


CLA CLL 


I AC 


/ENABLE CLEAR CONTROL 


CLRALL 




/AND CLEAR BRK ENABLE FLOP 


DC A 


GDREGl 


/STORE IN COMPARE RREGI6TER 


DCA 


GDREG2 


/STORE IN COMPARE REGISTER 


RDCRC 


/READ CRC REGISTER 


ACCMP2 




/CHECK RESULTS 


SKP CLA 




/O.K. 


JMP 


T30E 


/ERROR, CRC 


ISZ 


TCNTRl 


/UPDATE SECTOR COUNTER 


JMP 


T30R 


/MORE SECTORS TO TEST 


MEBROR 




/O.K. TO NEXT TEST 


ERROR 




/ERROR, CRC 


TST30 




/SCOPE LOOP POINTER 


6304 




/TEXT POINTER 


JMP I 


. + 1 




TST31 
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/vrnrKY that the; chc word written 

/ON DiSK IS CURRtXT, CCKPARL IT TO 
/KNOWN VALUt IN COPE. ON A READ ALL TH^ 
/CRC HEAD FROM DISK IS LEFT IN THE CRC BUFFER, 
'THE CRC SHOULD BE 116047 FOR DATA 2525 ♦ 5252, 



2200 
2;i0l 
2202 
2203 
2204 
2205 
2206 
2207 
2210 
2211 
22!2 
2213 
2214 
2215 
2216 
2217 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 



1107 
3135 
7301 
44S3 
1112 
4430 
1114 
3151 
1135 
0116 
1107 
4425 
2247 
5245 
1017 
3151 
1135 
0116 
1107 
4425 
2247 
5245 
1171 
3247 
7301 
4453 
1162 
3143 
1163 
3144 
4454 
4443 
7610 
5245 
2135 
5202 
4437 
4440 
2200 
6304 



TST3i , 



TAD 


K7760 




DCA 


TCNTRl 


/SETUP SECTOR COUNTER 


CLA CLL 


I AC 




CLRALL 




/CLEAR CONTROL 


TAD 


K252S 




FILBUF 




/FILL DATA BUFFER 


TAD 


K5000 


/FUNCTION WRITE ALL 


DCA 


CMPtG 


/SETUP COMMAND 


TAD 


TCNTRl 




AND 


K0017 


/MASK SECTOR BITS 


TAD 


K7760 




DISKGO 




/DISK WRITE ALL 


T31T 




/TEXT POINTER 


JMP 


T31E 


/ERROPf STATUS OR SKIP 


TAD 


KiOOO 


/FUNCTION READ ALL 


DCA 


CMREG 


/SETUP COMMAND 


TAD 


TCNTRl 




AND 


K00i7 


/MASK SECTOR BITS 


TAD 


K7760 




DISKGO 




/DISK READ ALL 


T31T 




/TEXT POINTER 


JMP 


T31t 


/ERROR, STATUS OR SKIP 


TAD 


K6304 




DCA 


T31T. 


/MODIFY TEXT POINTER 


CLA CLL 


I AC 


/ENABLE CLEAR CONTROL AND 


CLRALL 




. /CLEAR BRK ENABLE FLOP, 


TAD 


CRWRD^ 


/GET GOOD CRC 


DCA 


GDREGl 


/STORE IN COMPARE RRECISTER 


TAD 


CRWRD2 


/GET GOOD CRC 


DCA 


GDREG2 


/STORE IN COMPARE REGISTER 


RDCRC 




/READ CRC REGISTER 


ACCMP2 




/CHECK RESULTS 


SKP CLA 




/O.K, 


JmP 


T31E 


/ERRORf CRC 


ISZ 


TCNTRl 


/UPDATE SECTOR COUNTER 


JMP 


T31P 


/MOKE SECTORS TO TEST 


NERROR 




/O.K, TO NEXT TEST 


ERROR 




/ERROR, CRC 


TST31 




/SCOPE LOOP POINTER 


6304 




/TEXT POINTER 



T31E, 



T3iT, 
/ 

/REALLY PROVE THE HEADS ARE MOVING, 
/VERIFY A WRITE ALL TO ALL OF CYLINDER 1450 
/AND THEN CYLINDER 0, USE DATA PATTERN 5252 + 
/CYLINDER 1450 AND 2525 ♦ 5252 ON CYLINDER 0, 
/CHECK FOR NO ERRORS IN STATUS, 
/MAKE FIRST TftO WQRDS OF EVERY SECTOR 
/EQUAL TO ADDRESS OF SECTOR, 
/ 
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2250 
2251 
22S2 
2253 
2254 
2255 
2256 
2257 



2262 
2263 
2264 
226S 
2266 
226 7 
2270 
227i 
2272 



2315 
2316 
2317 
2320 
2321 
2322 
2323 
2324 
2325 



1122 
3135 
1113 
4430 
7301 
1070 
3464 
1135 



2260 0117 

2261 1065 



3463 
7301 
1114 
3151 
1463 
4425 
2362 
5360 
2135 



2213 5257 



1122 
3135 
4431 
7301 
101? 
3151 
1135 
0117 
1065 



/riKST WRITE CYLINDER 1450 



TST32, 



TAD 
DCA 
TAD 

flLBUF 
CL& CLL 
TAD 
DCA I 
TAD 
AND 
TAD 
DCA 



CLA CLL 

TAD 

DCA 

TAD 1 

DI5KGQ 

T32I 

JMP 

ISZ 

JMP 



K7740 

TCNTBl 

K52b2 

I AC 

DRlVNO 

XHItRK 

TCNTRl 

K00i7 

CyL450 

XLOTRK 

I AC 

K5000 

CMBKG 

XLOTRK 



T32E 

TCNTRl 

T32R1 



/WRITE ALL TO ALL OF CYLINDER 0 
/ 



2274 


1122 




TAD 


K7740 


2275 


3135 




DCA 


TCNTRl 


2276 


1112 




TAD 


K2525 


2277 


4430 




riLBUi'" 




2300 


1135 


T32B2, 


TAD 


TCNTBl 


2301 


0117 




AND 


K0037 


2302 


3463 




OCA I 


XLOTRK 


230) 


1070 




TAD 


DRIVNO 


2304 


3464 




DCA I 


XHITRK 


2305 


1114 




TAD 


K5000 


2306 


3151 




DCA 


CMR£G 


2307 


1463 




TAD I 


XLOTRK 


2310 


4425 




DISKGO 




2311 


2362 




T32T 




2312 


5360 




JMP 


T32E 


2313 


2US 




ISZ 


TCNTBl 


2314 


5300 




JMP 


T32R2 



/SETUP SECTOR COUNTER 

/FILL BUFFER WITH DATA 

/GET DRIVE NUMBER 

/SETUP ADDRESS rtOBD IN BUFFER 

/MASK SECTOR BITS 
/LOWER CYLINDER 
/SETUP WORD IN BUFFER 

/FUNCTION WRITE ALL 
/SETUP COMMAND 
/SECTOR TO GO 
/DISK WRIT ALL 
/TEXT POINTER 
/ERROR, STATUS OR SKIP 
/UPDATE SECTOR COUNTER 
/MORE SECTORS TO GO 



/SETUP SECTOR COUNTER 

/FILL BUFFER WITH DATA 

/MASK SECTOR BITS 

/SETUP ADDRESS WORD IN BUFFER 

/GET DRIVE NUMBER 

/SETUP ADDRESS WORD IN BUFFER 

/FUNCTION WRITE ALL 

/SETUP COMMAND 

/SECTOR TO LOAD 

/DISK WRITE ALL 

/TEXT POINTER 

/ERROR, SKIP OR STATUS 

/UPDATE SECTOR COUNTER 

/MORE SECTORS TO GO 



/VERIFY THAT THE DATA WRITTEN ABOVE 

/ON CYLINDER 1450 WAS O.K. CHECK WITH READ ALL, 

/ 

TAD K7740 
DCA TCNTRl 
T32H3, KILBUF 

CLA CLL lAC 



/COUNTER FOR 37 SECTORS 
/CLEAR DATA BUFFER 



TAD 
DCA 
TAD 
AND 
TAD 



KiOOO 

CMPEG 

TCNTRl 

K0037 

CYL450 



/HEAD ALL FUNCTION 
/SETUP COMMAND 



/ADD IN CYLINDER 



PALIO V142 

2326 4425 

2327 2362 

2330 5360 

2331 1M3 

2332 4427 

2333 7610 

2334 5360 

2335 2135 

2336 5317 
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DISKGO 
T32T 
JMP 
TAD 

FlttURE 
SKP CLA 
JMP 
ISZ 
JMP 



T32E 
K52S2 



T32E 

TCNTRl 

T32R3 



/DISK READ ALL 

/TEXT POINTER 

/ERROR, STATUS OR SKIP 

/WORD BY WORD COMPARE OF DATA 

/DATA O.K. 

/ERROR* DATA 

/UPDATE SECTOR COUNTER 

/MORE SECTORS TO CHECK 



/VERIFY THAT THE DATA WRITTEN ABOVE 

/ON CYLINDER 0 MAS O.K. CHECK WITH READ ALL, 



2337 


1122 




TAD 


K7740 




2340 


3135 




DCA 


TCNTRl 


/COUNTER FOB 37 SECTORS 


2341 


4431 


T32R4, 


KILBUF 




/CLEAR DATA BUFFER 


2342 


1017 


TAD 


KIOOO 


/READ ALL FUNCTION 


2343 


3151 




DCA 


CMRE6 


/SETUP COMMAND 


2344 


1135 




TAD 


TCNTRl 




2345 


0117 




AND 


K0037 




2346 


4425 




DISKCU 




/DISK READ ALL 


2347 


2362 




T32T 




/TEXT POINTER 


2350 


5360 




JMP 


T32E 


/ERROR, STATUS OR SKIP 


2351 


1112 




TAD 


K2S25 




2352 


4427 




FIGURE 




/WORD BY WORD COMPARE OF 


2353 


7610 




SKP CLA 




/DATA O.K. 


2354 


5360 




JMP 


T32E 


/ERROH, DATA 


2355 


2135 




ISZ 


TCNTRl 


/UPDATE SECTOR COUNTER 


2356 


5341 




JMP 


T32H4 


/MORE SECTORS TO CHECK 


2357 


4437 




NERROK 




/O.K, TO NEXT TEST 


2360 


4440 


T32E» 


ERROR 




/ERROR, WRITE ALL 


2361 


2250 




TST32 




/SCOPE LOOP POINTER 


2362 


5373 


T32T, 


5373 




/TEXT POINTER 


2363 


5764 


/ 


JMP I 


,♦1 


/TO NEXT TEST 


2364 


2400 




TST33 







/ 

2400 PAGE 
/ 

/REALLY PROVE HEADS ARE MOVING, 

/VERIFY A WRITE DATA TO ALL OF CYLINDEP 0 

/THEN CYLINDER 1450. USE DATA PATTERN 2525 ♦ 5252 ON 

/CYLINDER 1450 AND 5252 + 2525 ON CYLINDER 0. 

/CHECK FOB NO ERBOPS IN STATUS, 

/MAKE FIRST TwO WORDS OF EVERY SECTOR 

/EQUAL TO ADDRESS OF SECTOR, 

/ 

/FIRST WRITE DATA TO CYLINDER 0, 
/ 

2400 1122 TST33, TAD K7740 

2401 3135 DCA TCNTRl /SETUP SECTOR COUNTER 

2402 1113 TAD K5252 

2403 4430 FILBUK /FILL BUFFER WITH DATA 

2404 7300 T33R1, CLA CLL 

2405 1135 TAD TCNTRl 
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2406 


0117 


AND 


K0037 


/MASK OFF SECTOR BITS 


2407 


3463 


DCA I 


XLOTRK 


/SETUP ADDRESS WORD IN 


2410 


1070 


TAD 


DRIVNO 


/GET DRIVE NUHBER 


2411 


3464 


DCA I 


XttlTRK ■ 


/SETUP ADDRESS rtORD IN 


2412 


1104 


TAD 


K4000 


/FUNCTrON WRITE DATA 


24U 


3151 


DCA 




/SETUP COMMAND 


2414 


1463 


TAD I 


XLOTRK 


/SECTOR TO LOAD 


24iS 


442& 


DISKGU 




/DISK WRITE DATA 


2416 


2S1 1 


T33T 




/TEXT PUINTbP 


2417 


SJ07 


JMP 




/ERROR, STATUS UR BMP 


2420 


21 J!J 


ISZ 




/UPDATE fifcCTOP COUNTER 


3421 


«^04 


JMP 


Ti3fM 


/MOPE StClOkft TO GO 



/ 

/WRITE DAT* TO ALL QT CYLINUEH 1450 
/ 



2422 


1122 




TAD 


K7740 




2423 


3135 




DCA 


TCNTRl 


/SETUP SECTOR COUNTER 


242 4 


nu 




TAD 


K2525 




242S 


4430 




FILBUF 




/FILL BUFFER bkXTH DATA 


2426 


7301 




CLA CLL 


lAC 




2427 


1070 




TAD 


DRIVNQ 


/GET DRIVE NUMBER 


2430 


3464 




DCA I 


XHITRK 


/SETUP ADDRESS WORD XN 


2431 


1135 


T33R2, 


TAD 


TCNTRl 




2432 


0117 




AND 


K00i7 


/MASK OFF SECTOR BITS 


2433 


1065 




TAD 


CYL450 


/ADD IN CYLINDER 


2434 


3463 




DCA I 


XLOTRK 


/SETUP ADDRESS WORD IN 


2435 


7301 




CLA CLL 


lAC 


/EXTENDED TRACK BIT 


2436 


1104 




TAD 


K4000 


/FUNCTION WRITE DATA 


2437 


3151 




DCA 


CMREG 


/SETUP COMMAND 


2440 


1463 




TAD I 


XLOTRK 


/SECTOR TO LOAD 


2441 


4425 




DISKGO 




/DISK WRITE DATA 


2442 


2511 




T33T 




/TEXT POINTER 


2443 


5307 




JMP 


T33E 


/ERROR, STATUS OR SKIP 


2444 


2135 




ISZ 


TCNTRl 


/UPDATE SECTOR COUNTER 


2445 


5231 




JMP 


T33R2 


/MORE SECTORS TO CO . 



/ 

/VERIFY THAT THE DATA WRITTEN ABOVE 

/OK! CYLINDER 0 WAS O.K. CHECK WITH READ DATA, 

/ 



2446 


1122 




TAD 


K7740 




2447 


3135 




DCA 


TCNTRl 


/COUNTER FOB 37 SECTORS 


2450 


4431 


T33RJ, 


KILBUF 




/CLEAR DATA BUFFER 


2451 


3151 




DCA 


CMREG 


/SETUP COMMAND 


2452 


U35 




TAD 


TCNTRl 




2453 


Oil? 




AND 


K0037 




2454 


4425 




DISKGO 




/DISK READ DATA 


2455 


2511 




T33T 




/TEXT POINTER 


3456 


5307 




JMP 


T33E 


/ERROR, STATUS OR SKIP 


2457 


llU 




TAD 


K52S2 




2460 


4427 




FIGURE 




/^ORD 8^ WORD COMPARE OF 


2461 


7610 




SKP CLA 




/DATA O.K. 


2462 


5307 




JMP 


T33L 


/ERROR, DATA 


2463 


213S 




ISZ 


TCNTRl 


/UPDATE SECTOR COUNTER 


24S4 


5250 




JMP 


T33R3 


/MORE SECTORS TO CHECK 



/ 



PALIO Vt42 



/VERIFY THAT THE DATA 
/ON CYLINDER 1450 WAS 



WRITTEN ABOVE 

O.K» CHECK AlTH READ DATA. 



246b 
2466 
2467 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2500 
2501 
2502 



2505 
2506 
2507 
2510 
2511 



2512 
2513 
2514 
2515 
2516 
2517 
2520 
2521 
2522 



U22 
3135 
4431 
7301 
3151 
1135 

cm 

1065 
4425 
251 1 
5307 
1112 
4427 
7610 



2503 5307 

2504 2135 



5267 
4437 
4440 
2400 
5373 



7301 
4453 
4423 
2546 
5344 
7301 
U57 
1070 
1104 



2523 4450 

2524 7301 



2525 
2526 
2527 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
254U 
2541 
2542 



1104 
3144 
1066 
4452 
7330 
4455 
7010 
4455 
7010 
4455 
4447 
5337 
4444 
4442 



T33E» 



TAD 
DCA 

KILBUF 

CLA CLL 

DCA 

TAD 

AND 

TAD 

DISKGO 
T33T 
JMP 
TAD 

FIGURE 
SKP CLA 
JMP 
ISZ 
JMP 

KERROR 
ERROR 
TST33 
5373 



K7740 
TCNTRl 

lAC 

CMREG 

TCNTRl 

K0037 

CYL450 



T33E 
K2525 



T33E 

TCNTRl 

T33R4 



T33T 
/ 

/VERIFY A CYLINDER ADDRESS ERROR IN 
/STATUS REGISTER, CAN BE CAUSED BY ISSUEING 
/MAINTENANCE SHIFT CRC AFTER DISK 
/HAS ACCEPTED THE ADDRESS, 
/ 

TST34, 



/SECTOR COUNTER 
/CLEAR DATA BUFFER 



/SETUP COMMAND 



/ADD IN CYLINDER 
/DISK READ DATA 
/TEXT POINTER 
/ERROR, STATUS OP SKIP 

/WORD BY WORD COMpARE OF DATA 
/DATA 0,K, 
/ERROR, DATA 
/UPDATE SECTOR COUNTER 
/MORE SECTORS TO CHECK 
/0»K, TO NEXT TEST 
/ERROR* WRITE DATA 
/SCOPE LOOP POINTER 
/TEXT POINTER 



CLA CLL 


lAC 




CLRALL 




/CLEAR CONTROL 


SEEK 




/SEEK ONLY TRACK 0 


T34T 




/TEXT POINTER 


JMP 


T34E 


/ERROR, SKIP OR STATUS 


CLA CLL 


lAC 




TAD 


HOMEMA 




TAD 


&R1VN0 




TAD 


K4000 


/TOTAL COMMAND WRITE DATA 


LDCMD 




/LOAD COMMAND REGISTER 


CLA CLL 


lAC 




TAD 


K4000 




DCA 


GDREG2 


/EXPECTED STATUS 


IAD 


THK212 




LDADD 




/LOAD AND GO READ 


CLA CLL 


CML RAP 




LDMAN 




/ENTER MAIMTENANCE, 


RAR 






LOMAN 




/SET DB4 FOR ENABLE SHIFT 


RAP 






LDMAN 




/SHIFT CRC 


DSKSKl^ 




/WAIT FOR FLAG 


JMP 


.-1 




RDSTAT 




/READ STATUS REGISTER 


ACCHPl 




/CHECK RESULTS 



20-DEC«73 



2543 


4437 




NtBROR 






/O.K. TO NEXT T£ST 


2544 


4440 


T34E» 


ERROR 






/ERROR, CYLINDER ADDRESS 


2&4S 


2512 




TST34 






/SCOPE LOOP POINTER 


2S46 


5300 


/ 


5300 






/TEXT POINTER 


2547 


5750 




jHP I 


. + 1 




/TO NEXT TEST 


2S5Q 


2600 




T5T35 










2600 


/ 

PACE 














/ 


A CRC ERBOP By ENTERING 


MAINTENANCE 






/AND SHIFTING CBC IN *RITE kll 


MODE , 




2b00 


7 3 01 


TST35, 


CLA CLt 


lAC 






260 1 


445 3 




CLRALL 






/CLLAR CuNTRuL 


2602 


4 4 31 




KILBUF 






/CLbAK our FbH AKC>A 


260 3 


10 67 




TAD 


BGNBUF 












LDCUR 






/hOfkU CURRbnl AUPRc.55 




■ 




TAD 


HUMEMA 








! 1 1 4 




TAD 


DRIVNO 












TAD 


K5000 




/lUiAL tUMnAniU 


2d 1 0 






LDCMD 






/LOAD COMMAND 


«^ ) i 


* * 




tOADD 






/LOAD AND GO fl^lTt ALL 


2612 


'330 




CLA CLli 


CML RAP 




■ 




4455 




l/DMAN 






/ENTER HAXNIENANCC 


261 4 


7010 




RAR 










4455 




LDMAN 






/SET 0B4 TO ENABLE SHIFT 


2616 


7010 




RAR 








2617 


107 3 




TAD 


K0002 




/SET AC BIT 10 DATA 


2620 






LDMAN 






/SHIFT CBC 


2621 


44 47 




DSKSKP 






/SKIP ON ERROR FLACi 


26 22 


52 2 0 




JMP 


1-2 




/KEEP SKiriXNG CRC TILL ERROR 


262 3 


7 3 01 




CLA CLL 


I AC 






2624 


4 45 3 




CLRALL 






/CLEAR CDnTHDu 


2625 


7 3 3 0 




CLA CLL 


CML BAP 






2626 


1011 




TAD 


KOOlO 






2627 


3144 




DCA 


GDBEG2 




/EXPECTED STATUS REGISTER 


2630 


1067 




TAD 


BGNBUF 






2631 


4451 




LDCUR 






/LOAD CURRENT ADDRESS 


2632 


1157 




TAD 


HOMEKA 






2633 


1070 




TAD 


DBIVNO 






2634 


1017 




TAD 


KIOUO 




. /TOTAL BEAD ALL COMMAND 


2635 


4450 




LDCMD 






/LOAD COMMAND REGISTER 


26 36 


4 45 2 




LDADD 






/LOAD AND CO READ ALL 


26 37 


4447 




DSKSKP 






/hAIT AND SKIP ON CRC ERRORl 


2640 


5237 




JMP 


.•1 






2641 


4444 




RDSTAT 






/READ STATUS REGISTER 


2642 


4442 




ACCMPl 






/CHECK RESULTS 


2643 


4437 




NERROR 






/0,K« TO NEXT TEST 


2644 


4440 


T35E, 


ERROR 






/ERBOHi ChC ERROR 


2645 


2600 




TSTJ5 






/SCOPE POINTER 


2646 


SiOO 




5300 






/TEXT POINTER 



/BIG ADDRESSING TEST 

/FORMAT THE COMPLETE DISK SURFACE WITH 



PALIO VU2 



2647 
2650 
2651 
2652 
2653 
265 4 
2655 
2656 
2657 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 



7301 

4453 

1112 

4430 

3463 

1070 

3464 

1070 

1157 

1114 

3151 

1067 

3153 

7330 

3144 

1463 

3152 

1067 

6744 

1151 

6746 

1463 

6743 

6741 

5276 

6745 

3147 

1147 

1 104 

7640 

5325 

7301 

6742 

2463 

5314 

2151 

2464 

1464 

7110 

7620 

5264 

1463 

1172 

7640 

5264 

44 37 

4440 

?647 

5300 



/WRITE 
/MAKE 
/EQUAL 
/ 

T5T36 



73 13154 PAGE I«31 

ALL< USE DATA PATTERN 2S2S * 52S2 
FIRST TWO WORDS OF EVERY SECTOR 
TO ABSOLUTE ADDRESS OF SECTOR, 



I0T4&1 
I0T6AI 



IOT3Ai 
lOTUl 



2730 5731 



T36I, 
/ 



CLA CLL 

CLRALL 

TAD 

rUBUF 

DCA I 

TAD 

DCA I 

TAD 

TAD 

TAD 

DCA 

TAD 

DCA 

CLA CLL 

DCA 

TAD I 

DCA 

TAD 
, DLCA 

TAD 
. DLDC 

TAD I 
' DLAG 

D5KP 

JMP 

DRST 

DCA 

TAD 

TAD 

SZA CLA 
JMP 

CLA CLL 
DCLB 
tSZ I 
JMP 
ISZ 
ISZ I 
TAD I 
CLL RAR 
SNL CLA 
JMP 
TAD I 
TAD 

SZA CLA 
JMP 

NERROR 
ERROR 
TST36 
5300 

JHP I 



K2525 

XLOIRK 

DBIVNO 

XHITHK 

DRIVNO 

HOMEMA 

K5000 

CmPEG 

BGNBUF 

CABEG 

CML BAP 

GDPEG2 

XLOTBK 

DAREG 

BCNeUF 

CMPEG 

XLOTRK 



STBEG 
STREG 
K4000 

T36E 
I AC 

XLOTRK 

.♦3 

CMREG 

XHITRK 

XHITRK 



T36H 
XLOTRK 
ENDTRK 



/CLEAR CONTROL 

/FILL SUFFER WITH DATA 
/COUNTER ♦ TRACK WORD 
/GET DRIVE NUMBER 
/COUNTER 4 TRACK WORD 
/CURRENT DRIVE 
/CURRENT FIELD 
/FUNCTION WRITE ALL 
/SETUP COMMAND 
/GET START OF BUrFER 
/FOR ERROR PRINTER 

/SETUP EXPECTED STATUS COMPARE 

/FOR ERROR PRINTER 

/START OP BUFFER 

/LOAD CURRENT ADDRESS 

/LAST COMMAND 

/LOAD COMMAND REGISTER 

/SECTOR TO LOAD 

/LOAD AND 60 

/DISK SKIP lOT 

/WAIT FOR FLAG 

/READ STATUS 

/SAVE FOR ERROR PRINTER 

/GET IT 

/ADD IN FUDGE FACTOR 
/STATUS 0,K,T?T? 
/HO, STATUS ERROR 
/ENABLE CLEAR CONTROL 
/CLEAR CONTROL 

/DON'T SET EXTENDED TRACK 

/YES, SET IT 

/SETUP BUFFER ALSO 

/GET TRACK WORD 

/GET EXTENDED BIT TO LINK 

/WAS IT SET 

/NO, CONTINUE 

/GET LOwER TRACK WORD 

/ADD IN FUDGE FACTOR 

/DONE WITH DISK . 

/NO, MORE TO GO 

/O.K. TO NEXT TEST 

/EBBOP^ STATUS 

/SCOPE LOOP POINTER 

/TEXT POINTER 

/TO NEXT TEST 



PALIO VH2 
ilil 3000 
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/ 

PAGE 
/ 

/BIG ADDPt-SSlNG CHtCKi 

/IF A DATA tPROK SHOULD HAPPEN TO OCCUR 

/wlIH THE FIB5T TWO WORDS OF THE BUFFtP* YOU 

/SHOULD REALIZE THAT TH£ PROBLCH COULD BE 

/ADDRESS.ING, 

/ 

/ 

/VERIFY THAI THE DATA Qti DISK 15 CORRECT 
/CHECK THE COMPLETE SURFACE 

/THE DATA ON THE COMPLETE DISK SHOULD BE 25125 
/HOWEVER, THE TitQ FIRST WORDS OF EVERY SECTOR 
/SHOULD EQUAL THE ABSOLUTE DISK ADDRESS. 



3000 


3135 


TSTj7, 


DCA 


TCNTRl 




3001 


1017 




TAD 


KIOOO 


/FUNCTION READ ALL 


3002 


1157 




TAO 


HOMEMA 


/CURRENT FIELD 


3003 


1070 




TAD 


DRIVNO 


/CURRENT DRIVE 


3004 


3151 




DCA 


CMREG 


/SETUP COMMAND 


3005 


1207 




TAD 




/GET TEXT POINTER 


3006 


7410 




SKP 






3007 


3077 




T37T 




/TEXT POINTER 


3010 


3174 




OCA 


SAVPCT 


/SAVE. FOR CRC ERROR 


30U 


1067 




TAD 


BGNBUF 


/GET START OF BUFFER 


3012 


3153 




DCA 


CAREG 


/SAVE FOR ERROR PRINTER 


3013 


7340 


T37R, 


CLA CLL 


CHA 




3014 


3173 




DCA 


SOFERB 


/SETUP CRC ERROR POINTER 


3015 


4431 




KILBUF 




/CLEAR DATA BUFFER 


3016 


1135 




TAD 


TCNIRl 


/LOMER DISK ADDRESS 


3017 


3152 




DCA 


DAREG 


/SAVE FOR PRINTER 


3020 


1067 




TAD 


BGNBUF 


/GET START OF BUFFER 


3021 


6744 


I0T4A2f 


OLCA 




/LOAD CURRENT ADDRESS 


3022 


1151 




TAD 


CMREG 


/GET COMMAND 


3023 


6746 


IOT6A2* 


DLDC 




/LOAD COMMAND REGISTER 


3024 


1135 




TAD 


TCNTRl 


/GET DISK ADDRESS 


3025 


6743 


I0T3A2# 


DLAG 




/LOAD DISK ADDRESS AND CO 


3026 


6741 


I0T1A2, 


DSKP 




/DISK SKIP lOI 


3027 


5226 




JMP 


."1 


/WAIT FOR DISK SKIP 


3030 


6745 


I0T5A2I 


DBST 




/READ STATUS 


3031 


3147 




DCA 




/SAVE FOR ERROR PRINTER 


3032 


U47 




TAD 


STRtG 




3033 


1104 




TAD- 


K4000 • 


/ADD IN FUDGE FACTOR 


3034 


7650 




SNA CLA 




/STATUS O.K. 


3035 


5251 




JMP 


T37A 


/NO STATUS ERRORS 


3036 


7J30 




CLA CLL 


CML RAR 


/EXPECTED STATUS 


3037 


3144 




DCA 


GDRtG2 


/SETUP COMPARE REGISTER 


3040 


1147 




TAD 


STRLG 


/GET STATUS PtAU 


3041 


0011 




AND 


KOOlO 


/>5ASK roR CRC 


3042 


7640 




SZA CLA 




/isAS IT CRC ERROR 


3043 


5^47 




JMP 


♦ *4 


/YES CRC ERROR 


3044 


1170 




TAD 


K5300 


/GET TEXT POINTER 


3045 


3277 




DCA 


TJ7T 


/SAVE IT 



PALIO V142 



3046 
3047 
3050 
305 1 
3 05 2 
3053 
3054 
3055 
305b 
3057 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3070 
307 1 
3072 
307 3 
3074 
3075 
3076 
3077 



3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3110 
3111 
3112 
3113 
3114 
3US 
3116 
3117 



527!> 
317J 
5253 
7 301 
6742 
1167 
3277 
Ui2 
4427 
7610 
5275 
2135 
7610 
2151 
1151 
0072 
7650 
5213 
U35 
1172 
7640 
5213 
44 37 
4440 
3000 
5300 



7340 
3173 
3135 
3136 
1017 
1070 
1157 
3151 
1067 
4451 
1151 
4450 
1135 
4452 
4447 
5316 



: 17A, 
iOT2fe2» 



3 
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JMP 


T37E 


/STATUS ERROR NOT CRC 


DCA 


SOPERR 


/SET CRC ERROR POINTER 


JMP 


.f 3 


/DON'T CLEAR CONTROL 


CLA CLL 


I AC 


/ENABLE CLEAR CONTROL 


DCLB 




/CLEAR CONTROL 


TAD 


K5373 




DCA 


T37T 


/SETUP TEXT POINTER 


TAD 


K2525 


/GET EXPECTED DATA 


FIGURE 




/CHECK DATA READ 


SKP CLA 




/THIS ONE 0,K, 


JMP 


T37E 


/ERROR, DATA 


ISZ 


TCNTRl 


/UPDATE LOWER DISK ADDRESS 


SKP CL& 






ISl 


CKBEG 


/SET EXTENDED BIT 


TAD 


CMREG 




AND 


KCOOl 




SNA CLA 




/IS EXTENDED SET 


JMP 


T37R 


/NO, CONTINUE 


TAD 


TCNIRl 




TAD 


ENDTRK 


/ADD IN FUDGE FACTOR 


SZA CLA 




/DONE WITH DISK 


JMP 


T37R 


/NO, MORE TO CO 


MLRROR 




/0,K« TO NEXT TEST 


ERROR 




/ERROR* STATUS 


TST37 




/SCOPE LOOP POINTER 


5300 




/TEXT POINTER 



T37E, 

T37T, 
/ 

/BIG ADDRESSING CHECKl 

/IF A DATA £;RR0B SHOULD HAPPEN TO OCCUR 
/WITH THE FIRST TWO WORDS OF THE BUFFER, YOU. 
/SHOULD REALIZE THAT THE PROBLEM COULD BE 
/ADDRESSING. 
/ 

/READ ALL SECTORS ON THE DISK AND CHECK 

/THE STATUS, IF STATUS ERROR OCCURPES THEN CHECK THE DATA, 
/THE DATA ON THE COMPLETE DISK SHOULD BE 2525 ♦ 5252. 
/HOWEVER, THE TWO FIRST WORDS OF EVERY SECTOR 
/SHOULD EQUAL THE ABSOLUTE DISK ADDRESS, 

/ 

TST38, 



CLA CLL 


CMA 




DCA 


SOFERR 


/SETUP CRC ERROR POINTER 


DCA 


TCNTRl 


/SETUP LOWER ADDRESS 


DCA 


TCNTR2 


/SETUP EXTENDED 


TAO 


KIOOO 


/FUNCTION READ ALL 


TAD 


DRIVNO 


/CURRENT DRIVE 


TAD 


HOMEMA 


/CURRENT FIELD 


DCA 


CHREC 


/SETUP COMMAND 


TAD 


BGNBUF 


/START OF BUFFER 


LDCUR 




/LOAD CURRENT 


TAO 


CMREG 


/LAST COMMAND ISSUED 


LDCMD 




/LOAD COMMAND 


TAD 


TCNIRl 


/LOWER ADDRESS 


LDADD 




/LOAD AND GO 


DSKSKP 




/DISK SKIP lOT 


JMP 


.-1 


/HANG IF NO SKIP 



i 0 


V i 42 


20-DEC 


■•7 3 
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3120 


4444 




PDSTAT 




/'BEAD STATUS 


312i 


I 104 




TAD 


K40 0 0 


/SHOULD ONLY BE DONE 


3122 


7&40 




SZA CLA 




/JUST DONE FLAG 1 


3123 


5340 




JMP 


T38fc. 


/STATUS ERROR 


3124 


2i3S 




ISZ 


TCNTRl 


/UPDATE ADDRESS 


3125 


5330 




JMP 


• + 3 


/DOh'T oEI bXTi;Nl>t.P TRACK 


31 2b 


21 5 I 




ISZ 


CMRtG 


/TI-S* SET II 


3i27 


2l3fe 




ISl 


TC^iTR^ 




3130 


1 1 36 




TAD 


TCNTR2 




3131 


7650 




SNA CLA 




/IS Extended set 


3132 


5310 




JMP 


T 38R 




3133 


1135 




TAD 


TCNIP I 




3134 


1172 




TAD 


EhDTRK 


_ _ _ 

/ADD IN FUDGE FACTOR 


3135 


7640 




SZA CLA 




/DONE <nXTH DISK 


3136 


5 310 




JMP 


T 3 8R 


/^Uf MQFE TU vu 


3137 


5350 




JWP 


T 380K 


/ALL OtKf 


3140 


U 12 




TAD 


K2525 




3H1 


4427 




figure; 




/fiuHv oi wORP vU!*!rAKE Ur DATA 


3142 


5345 




JMP 


» + 3 


/errori just the status 


3143 


1167 




TAD 


K537 3 


/TEXT POINTER 


3144 


7410 




SKP 




/DATA ERROR 


3145 


1170 




TAD 


K5300 


/STATUS TEXT POINTER 


3146 


3353 




DCA 


TiST 


/SETUP 


3147 


7610 




SKP CLA 




/STATUS ERROR 


3150 


4437 


T380K # 


nerror 






3i5i 


4440 


T3BDE, 


ERROP 




/ERROR» READ DATA 


3152 


3100 




TST38 




/SCOPE LOOP POINTER 


315) 


5300 


T38T, 


5300 




/TEXT POINTEP 


3154 


575& 


/ 


JMP X 




/TO urVT TEST 


3155 


3200 


/ 


TST39 








3300 


PAGE 












/BIG ADDRESSING 


CHECKi 





/XF A DATA ERROR SHOULD HAPPEN TO OCCUR 
/WITH THE FIRST TWO WORDS OF THE BUFFER, YOU 
/SHOULD REALIZE THAT THE PROBLEM COULD BE 
/ADDRESSING. 
/ 

/CHECK DISK HEADER WORD WITH READ DATA 

/IF STATUS ERROR OCCURRES THEN CHECK DATA, 

/THE DATA ON THE COMPLETE DISK SHOULD BE 2525 ♦ 5252, 

/HOWEVER, THE TWO FIRST WORDS OF EVERY SECTOR 

/SHOULD EQUAL THE ABSOLUTE DISK ADDRESS. 



/ 



3200 


7340 


TST39, 


CLA CLL 


CMA 




3201 


3173 




DCA 


SOFERR 


/NO SOFT ERRORS 


3202 


3135 




DCA 


TCNTRl 


/SETUP LOWER ADDRESS 


3203 


3l3b 




DCA 


TCNTR2 


/SETUP EXTENDED . 


3204 


1070 




TAD 


DRIVND 


/CURRENT DRIVE 


3205 


1157 




TAD 


HOf^tMA 


/CURRENT FIELD 


3206 


3151 




DCA 


CMPEG 


/SETUP COMMAND 


3207 


1067 


T39R# 


TAD 


BGNfiUF 


/START or BUFFER 


3210 


4451 




LOCUR 




/LOAD CURRENT 



/ PALIO V142 20.DEC-73 13154 PACE 1-35 



3211 


1151 




TAD 


CMREG 


/LAST COMMAND 


3212 


4450 




LDCMD 




/LOAD COMMAND 


3213 


1135 




TAD 


TCNTRl 


/LOWER ADDRESS 


3214 


4452 




LDADD 




/LOAD AND GO 


3215 


4447 




OSKSKP 




/DISK SKIP lOT 


3216 


5215 




JMP 


.-1 


/HANG IF NO SKIP 


3217 


4444 




RD5TAT 




/READ STATUS 


3220 


1104 




TAD 


K4000 


/SHOULD ONLY BE DONE 


3221 


7640 




SZA CLA 




/JUST DONE FLAC ? 


3232 


5237 




JMP 


T39E 


/STATUS ERROR 


3223 


2135 




ISZ 


TCNTPl 


/UPDATE ADDRESS 


3224 


5227 




JMP 


. + 3 


/DON'T SET EXTENDED TRACK 


3225 


2151 




ISZ 


CMPEG 


/YES, SET IT 


3226 


213b 




ISZ 


TCN1R2 




3227 


1136 




TAD 


TCNTR2 




3230 


7650 




SNA CLA 




/IS EXTENDED SET 


3231 


5207: 




JMP 


T39R 


/NO, CONTINUE 


3232 


U35 




TAD 


TCNTRl 




32 33 


1172 




TAD 


ENDIPK 


/ADD IN FUDGE FACTOR 


3234 


7640 




SZA CLA 




/DONE WITH DISK 


3235 


5207 




JMP 


T39R 


/NO, MORE TO GO 


3236 


5247 




JMP 


T390K 


/ALL O.K. 


3237 


1112 


T39E# 


TAD 


K2525 




3240 


4427 




FIGURE 




/WORD BY WORD COMPARE OF 1 


3241 


5244 




JMP 


, + 3 


/ERROR, JUST STATUS 


3242 


1167 




TAD 


K5373 


/TEXT POINTER 


3243 


7410 




SKP 




/ERROR 


3244 


1170 




TAD 


Kb300 


/STATUS ERROR POINTER 


3245 


3252 




DCA 


T39T 


/SETUP 


3246 


7610 




SKP CLA 






3247 


4437 


T390K, 


MERROR 




/O.K. TO NEXT TEST 


3250 


4440 


T39DE» 


ERROR 




/ERROR, READ DATA 


3251 


3200 




TST39 




/SCOPE LOOP POINTER 


3252 


5300 


T39T, 


5300 




/TEXT POINTER 



/ 

/DO A RANDOM READ DATA 

/THE DATA ON THE COMPLETE DISK SHOULD BE 2525 ♦ 5252. 
/HOWEVER, THE TWO FIRST WORDS OF EVERY SECTOR 
/SHOULD EQUAL THE ABSOLUTE DISK ADDRESS, 
/ 



3253 


1106 


TST40, 


TAD 


K7000 




3254 


3141 




DCA 


TCNTR5 


/LENGTH OF TIME FDR THIS TEST 


3255 


4422 


T40R# 


PANADD 




/GET AN ADDRESS FOR SEEK/READ 


3256 


3137 




DCA 


TCNTR3 


/SAVE IT 


3257 


7004 




RAL 




/LINK IS EXTENDED 


3260 


3140 




DCA 


TCNTR4 


/SAVE IT 


3261 


1140 


T405, 


TAD 


TCNTR4 




3262 


3151 




DCA 


CMREG 


./SETUP COMMAND 


3263 


1137 




TAD 


TCfiTR3 




3264 


4425 




DISKGO 




/DISK READ DATA 


3265 


3300 




T40T 




/TEXT POINTER 


3266 


5276 




JMP 


T40E 


/ERROR, SKIP OR STATUS 


3267 


1112 




TAD 


K252S 




3270 


4427 




FIGURE 




/WORD BY WORD COMPARE OF DATA 


327 1 


7610 




SKP CLA 




/DATA O.K. 
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3272 


5276 




JHP 


T40E 




/DATA ERROR 


3273 


2141 




t&l 


TCKIR5 






3274 


5255 




JMP 


T40R 




/LOOP 


3275 


4437 










/0,K, TO NEXT TEST 


3276 


4440 


T4CiE, 








/ERROBr READ 


3277 


3253 




T5T46 






/SCOPE LOOP POINTER 


3300 


0000 


T40T» 
/ 


0000 






/TEXT POINTER 






/RANDOM 


SEEK THEIK' WkItE THEn SEEK 


THEN 


READ TEST 






/THt DATA WRIXTSM IS 2525 ♦ 5252 


AMD 


THE TWO 






/FIRST 


ftORDs or 


THE StCTOR ARE SET 


TO 


THE DISK ADDRESS, 


3301 


1110 


/ 

TST41, 


TAD 


K770O 






3 302 


3141 




DC A 


TCN'TPS 




/PASS COUNTER 


3 30 3 


4422 


T41H, 


BANADD 






/GENERATE RANpON NUMBER 


3304 


0116 




AND 


K0017 






3305 


1 107 




TAD 


K77feO 






3306 


3160 




DCA 


PAPC^T 




/SAVE COUNTER 


3307 


4422 




RANADD 






/RANDOM SEEK DISK ADDRESS 


3310 


3135 




DCA 


TCNTPl 




/SAVE 


33U 


7004 




RAL 






/LINK IS EXTENDED BIT 


3312 


3 1 3b 




DCA 


TCNTP2 




/SAVE 


3313 


4422 




PANADD 






/RANDOM SEEK/1«RITE DISK ADDRESS 


3314 


3137 




DCA 


TCNTP3 




/SAVE 


3315 


7004 




PAL 






/LINK IS EXTENDED BIT 


3316 


3140 




DCA 


TCNTP4 




/SAVE IT 


3317 


1112 


T41S, 


TAD 


K2525 






3320 


4430 




FILBUF 






/riLL BUfFER 


3321 


1140 




TAD 


TCNIR4 




/GET EXTENDED BIT 


3322 


1070 




TAD 


DRIVNQ 




/GET DRIVE NUMBER 


3323 


3464 




DCA I 


XHITPK 




/DISK ADDRESS WORD IN BUFfER 


3124 


113? 




TAD 


TCNTR J 




. /LOi«jER DISK ADDRESS 


3 325 


3463 




DCA I 


XLOTPK 




/DISK ADDRESS WORD IN BUrFEK 


3 326 


1136 




TAD 


TCNIR2 




/GET EXTENDED BIT 


3J27 


5151 




DCA 


CMREG 




/SETUP COMMAND 


3 330 


1 135 




TAD 


TCNTRl 




/DISK ADDRESS 


333 1 


4423 




SEEK 






/SEEK ONLY 


3332 


3372 




T4 IT 






/TEXT POINTER 


3333 


5370 




JMP 


T41E 




/ERROR SKIP OR STATUS 


3334 


U40 




TAD 


TCNTP4 




/EXTENDED BIT 


3335 


1 104 




TAD 


K4000 




/FUNCTION WRITE DATA 


3336 


3151 




DCA 


CMREG 




/SETUP COMMAND 


3 337 


1 137 




TAD 


TCNTR3 




/DISK ADDRESS 


3 340 


4425 




DISKGO 






/DISK WRITE DATA 


3341 


3372 




T4iT 






• /TEXT POINTEP 


3342 


5370 




JMP 


T4iE 




/ERROR SKIP OF STATUS 


3343 


1 136 




TAD 


TCNXR2 




/GET EXTENDED BIT 








DCA 


CrtPEG 




/Sc,iUK CUMMANU HciulO^Er 


3 345 


1135 




TAD 


TCNTRl 




/GS:T DISK ADDRESS 


3346 


4423 




SEEK 






/GO SEEK ONLY 


3 347 


3372 




T4iT 






/TEXT POINTER 


3350 


5370 




JMP 


T41L 




/ERROR, SEEK SKIP OR STATUS 


3351 


1140 




TAD 


TCN1P4 




/GET EXTENDED BIT 


3352 


3151 




OCA 


CMREG 




/SETUP READ DATA COMMAND 


3353 


1137 




TAD . 


TCNTR3 




/DISK ADDRESS 



PALIO 


V142 


20-DEC-73 


13154 


3354 


4425 


DISKGC 




3355 


3372 


T4IT 




3356 


5 37 0 


JMP 


T41E 


3357 


tli^ 


TAD 


K2525 


3360 


4427 


riGUPL 




336 1 


7610 


SKP CLA 




3 362 


5 370 


JMP 


T41E 


3363 


2160 


ISZ 


RAPCNT 


3 364 


5317 


JMP 


T41S 


3 365 


2141 


ISZ 


TCNTR5 


3 36& 


5303 


JMP 


T41R 


3367 


4417 


NfcPfiOR 




3 370 


4440 


T41L, ERPOP 




337 1 


33ni 


TST41 




3372 


5373 


T41I. 5373 




3 37 3 


5774 


/ 

JMP 1 


.♦1 


3374 


340O 


TST42 





PAGE i«J7 



/DISK READ DATA 
/TEXT POINTER 
•/ERROR, SKIP OR STATUS . 

/KiORD BY *ORD COMPARE OF DATA 

/DATA O.K. 

/DATA ERROR 

/COUNT TO SAME TRACKS 

/REPEAT 

/PASS COUNTER 

/LOOP 

/O.K. TO NEXT TEST 
/ERROR 

/SCOPE LOOP POINTER 
/TEXT POINTER 

/TO NEXT TEST 



/ 

PAGE 

/VERIFY A RECALIBRATE THEN A RANDOM WRITE DATA» 
/THEN A RECALIBRATE THEN RANDOM READ DATA, 
/THE DATA PATTERN WRITTEN IS 2525 ♦ 5252 AND 
/THE FIRST TWO *0RDS OF EVERY SECTOR 
/SHOULD EQUAL THE ABSOLUTE DISK ADDRESS. 



3400 


tuo 


TST42, 


TAD 


K7700 


3401 


3141 




DCA 


TCNTRS 


)402 


4422 


T42R# 


RANADD 




)40} 


3135 




DCA 


TCNTRl 


3404 


7004 




RAL 




3405 


3136 




DCA 


TCNTR2 


3406 


1112 


T42Sf 


TAD 


K252S 


3407 


4430 




FILBUF 




3410 


1136 




TAD 


TCNTR2 


34U 


1070 




TAD 


DRIVNO 


3412 


3464 




DCA I 


XHITRK 


3413 


1135 




TAD 


TCNTRl 


3414 


3463 




DCA 1 


XLOTRK 


3415 


4424 




RECAL 




3416 


3451 




T42T 




3417 


5247 




JMP 


T4 2E 


3420 


1136 




TAD 


TCNIR2 


3421 


1104 




TAD 


K4000 


3422 


3151 




DCA 


CMREG 


3423 


U35 




TAD 


TCNTRl 


3424 


4425 




OlSKGO 




3425 


3451 




T42T 




3426 


5247 




JMP 


T42fc 


3427 


4434 




PECAL 




3430 


3451 




T42T 




343 1 


5247 




JMP 


T42fc; 


3452 


1 136 




TAD 


TCNTP2 


3433 


3151 




DCA 


CMRtG 



/PASS COUNTER 
/RANDOM DISK ADDRESS 
/SAVE 

/LINK IS EXTENDED BIT 
/SAVE 

/FILL BUFFER 

/GET EXTENDED BIT 

/GET DRIVE NUMBER 

/DISK ADDRESS WORD IN BUFFER 

/LOWER DISK ADDRESS 

/DISK ADDRESS WORD IN BUFFER 

/RESTORE DRIVE 

/TEXT POINTER 

/ERROR SKIP OR STATUS 

/EXTENDED BIT 

/FUNCTION WRITE DATA 

/SETUP COMMAND 

/DISK ADDPE55 

/DISK WRITE DATA 

/TEXT POINTER 

/ERROR SKIP OR STATUS 

/RESTORE DPIVE 

/TEXT POINTER 

/ERROR, SKIP OP STATUS 

/GET EXTENDED BIT 

/SETUP READ DATA COMMAND 



PAMO yii2 



:^434 
34Ji> 
345b 
5437 
5440 
3441 
3442 
3443 
3444 
344& 
3446 
3447 
3450 
345t 



3452 
3453 
3454 
3455 
3456 
3457 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3 470 
3471 
3472 
347 3 
3474 
3475 
3476 
3477 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3510 
35U 
3512 
3513 
3SU 



1 135 
4425 
345 1 
5247 
1112 
4427 
7b iO 
5247 
2141 
5202 
4437 
4440 
3400 
5373 



1336 
3l4i 
4431 
4422 
0117 
U22 
3140 
4422 
3137 
7004 
3136 
iUb 
3151 
1137 
4423 
3514 
5J12 
3140 
5261 
1136 
3151 
1U7 
4425 
3314 
5312 
1112 
4427 
7610 
5312 
2141 
5254 
4437 
4440 
3452 
0000 



T42£;, 

T42T, 
f 

/TPY TO 
/DOING , 
/ 

TST43, 
T43Fii 



TAD 

DISKCU 
T42T 
JMP 
TAD 

FlGUPt 
SKP CLA 
J MP 
ISZ 
JMP 

EHROS. 
TST42 

537 3 



T42fc; 
K2S25 



T42E 

TCNTR5 

T42P 



/DISK ADDRESS 
/DISK READ DATA 
/TEXT POINTER 
/tRROH, SKIP OR STATUS 

/*«ORD BX WORD CQwpARr OF DATA 

/DATA O.K. 

/DATA ERROR 

/PASS COUNTER 

/LOOP 

/O.K. TO NEXT TEST 
/ERROR 

/SCOPE LOOP POINTER 
/TEXT POINTER 



CAUSE CYLINDER ADDRESS 
I FEW RANDOM SEEKS THEN 



ERRORS BY 
A READ DATA, 



T43T» 
/ 

/CHECK 



TAD 


TIMSTP 




DCA 


TCNTR5 


/SETUP PASS COUNTER 


KIL8UF 




/CLEAR BUFFER 


RANADD 




/GET RANDOM NUMBER 


AND 


K0037 




TAD 


K7740 




DCA 


TCNTR4 


/SETUP COUNTER FOR SEEKS 


PANADD 




/GET RANDOM SEEK ADDRESS 


DCA 


TCNTR3 


/SAVE XT 


RAt 




/LINK IS EXTENDED BIT 


OCA 


TCNTR2 


/SAVE IT 


TAD 


TCNTR2 




DCA 


CMPEG 


/SETUP COMMAND 


TAD 


TCNTP3 




SEEK 




/SEEK ONLY A RANDOM TRACK 


T43T 




ntVt POINTER 


JMP 


T43fc 


/ERROR, SKIP OR STATUS 


ISZ 


TCNTP4 


/COUNT NUMBER TO DO 


JMP 


T43R2 




TAD 


TCNTR2 




DCA 


CMREG 


/SETUP FOR READ DATA 


TAD 


TCKTR3 




DI8KC0 




/LOAD AND GO READ DATA 


T43T 




/TEXT POINTER 


JMP 


T43E 


/ERROR SKIP OR STATUS 


TAD 


K2525 




FIGURE 




/CHECK DATA READ 


SKP CLA 




/ALL O.K. 


JMP 


T4JE 


/ERROR, DATA 


tsz 


TC.NTR5 




JMP 


T43R1 


/MORE TO TEST 


NEPROR 




/P,K. TO NEXT TEST 


ERROR 




/ERROR, SKIP, STATUS. CF 


TST43 




/SCOPE LOOP POINTER 


0000 




/TEXT POINTER 



DISK HEADER WORDS WITH READ DATA 



PALiO Vi42 



20-DEC-73 



13154 PAGE i-39 



/IF STATUS ERROR OCCURRES THEN CHECK DATA, 
/THt DATA ON THE COMPLETE DISK SHOULD BE 2525 ♦ 5252. 
/HOWEVER, THE T«0 FIRST WORDS OF EVERY SECTOR 
/SHOULD EQUAL THE ABSOLUTE DISK ADDRESS, 



3515 


7340 


T5T44, 


CLA CLL 


C«A 


/SETUP CPC ERROR POINTER 


3516 


3173 




DCA 


SOFERH 


3517 


313S 




DCA 


TCNTRl 


/SETUP L0*JER ADDRESS 


3520 


3136 




DCA 


TCNTR2 


/SETUP EXTENDED 


3521 


1070 




TAD 


DRIVNO 


/CURRENT DRIVE 


3522 


1157 




TAD 


HOHEMA 


/CURRENT FIELD 


3523 


3151 




DCA 


CMPEG 


/SETUP COMMAND 


3S24 


1067 


T44P, 


TAD 


BGNBUF 


/START OF BUFFER 


3525 


4451 




LDCUP 




/LOAD CURRENT ADDRESS 


3526 


U5l 




TAD 


CMREG 


/LAST COMMAND ISSUED 


3527 


4450 




LDCHD 




/LOAD COMMAND 


3530 


1135 




TAD 


TCNTRl 


/LOWER ADDRESS 


3531 


4452 




LDADO 




• /LOAD AND GO 


3532 


4447 




DSKSKP 




/DISK SKIP lOT 


3533 


5332 




JWP 


.-1 


/HANG IF NO SKIP 


3534 


4444 




RDSTAT 




/READ STATUS 


3535 


1104 




TAD 


K4000 


/SHOULD ONLY BE DONE 


3536 


7640 


TIMSTP, 


SZA CLA 




/JUST DONE FLAG 7 


3537 


5354 




JhP 


T44E 


/STATUS ERROR 


3S40 


2135 




ISZ 


TCNTRl 


/UPDATE ADDRESS 


3541 


5344 




JMP 


. + 3 


/DON'T SET EXTENDED TRACK 


3542 


2151 




ISZ 


CMREG 


/YESi SET II 


3543 


2136 




ISZ 


TCNTR2 




3544 


1136 




TAD 


TCNTR2 




3545 


7650 




SKA CLA 




/iS EXTENDED SET 


3546 


5324 




JMP 


T44R 


/NO, CONTINUE 


3547 


1135 




TAD 


TCNTRl 




3S50 


1172 




TAD 


ENDTRK 


/ADD IN FUDGE FACTOR 


3551 


7640 




SZA CLA 




/DONE WITH DISK 


3552 


5324 




JMP 


T44R 


/NO, MORE TO GO 


3553 


5364 




JMP 


T440K 


/ALL O.K. 


3554 


U12 


T44E, 


TAD 


K2525 




3^55 


4427 








/WORD BY WORD COMPARE OF 


3556 


5361 




JMP 


. + 3 


/ERROR, JUST STATUS 


3557 


1167 




TAD 


Kb373 


/TEXT POINTER 


3560 


7410 




SKP 




/ERROR 


3561 


1170 




TAD 


K5300 


/STATUS ERROR POINTER 


356 2 


3367 




DCA 


T44T 


/SETUP 


3563 


7610 




SKP CLA 






3564 


4437 


T44aK, 


NEPROR 




/O.K. TO NEXT TEST 


3565 


4440 




ERPQP 




/ERROR, READ DATA 


3566 


3515 




TST44 




• /SCOPE LOOP POINTER 


3567 


5300 


T44T» 


5300 




/TEXT POINTER 


3570 


577 1 


/ 


JWP I 


. + 1 


/TO NEXT TEST 


3571 


3600 


/ 


TST45 








3600 


PAGL 









/VERIFY THAT WRITING ON A TRACK DOES NOT AFFECT 



/ PALIO Vi42 20-DEC-73 UlS4 PAGE i»40 

/k*i ADJACENT TRACK, THE TEST SEQUENCE IS AS roLLOhSl 
/WRITt TRACKS OOOOO-OOl 00-00040 THEN READ khO CHECK 
/TPACKS OO040-OO00O-OO1OO, WRITE: TRACKS 00020-001 20*00060 
/THEN RtAD AND CHLCK TRACKS 00060-00020-00120, ETC, 
/TKL CENTER TRACK IS SET TO A DATA PATTERN OF 
/2525 * 5252. THE LO«<ER AND UPPER TRACKS ARE 
/SET 10 A DATA PATTERN OF 5252 ♦ 2525, THE FIRST TWO 
/WORDS OF FVPRY SKClOK ARE SET TO THE ABSOLUTt 
/DISK ADDHCSS, 



36 00 


1012 


TST45 , 


TAD 


KuOiO 


/GET STARTING POINTER 


360i 


3135 




DC A 


TCNTRl 


/SAVE II 


3b02 


1 350 




TAD 


K 7 1 56 




360 J 


3141 




DC A 


TC NTRS 


/COUNTER FOR TRACKS TQ 00 


3 b 04 


734b 


T45SC # 


CLA CLL 


CMA PTL 




36 05 


3140 




DC A 


TCNXR4 


/THREE TRACK COUNTER POINTER 


3606 


1 1 35 




TAD 


TCNIRi 




3607 


3137 




DC A 


TCNXR3 


/t^RITE CENTER TRACK FIRST 


36 10 


1112 




TAD 


K2525 


/DATA PATTERN FOR CENTER TRACK 


3611 


5 222 




JMP 


T45A1 


/GO WRITE CfcN'IER TRACK 


3612 


1140 


T45R1 t 


TAD 


TCNTR4 


/GET POINTER 


3613 


7110 




CLL RAP 






3614 


7 6 30 




SZL CLA 




/WRITE UPPER UR LOWERI??? 


36 1 S 


1122 




TAD 


K7740 


/DO LOWER 


3616 


1012 




TAD 


K0020 




3617 


1135 




TAD 


TCNTRl 


/REDUCE OR UPDATE 


3620 


3137 




DCA 


TCNXR3 


/SAVE TRACK TO DO 


3621 


1113 




TAD 


K52S2 


/USE COMPLEMENT OF CENTER TRACK 


3622 


4430 


T45A1 » 


FILBUF 




/FILL BUFFER «ITH DATA 


3623 


110? 




TAD 


K7760 


/GET SECTOR COUNTER POINTER 


3624 


3136 




DCA 


TCNtR2 


/SETUP COUNTER 


3625 


3142 




DCA 


TCNTR6 


/START WITH 0 


3626 


1142 


T45R2» 


TAD 


TCfJTRb 


/GET SECTOR POINTER 


3627 


0116 




AND 


KOOi? 


/MASK SECTORS 


3630 


3463 




DCA I 


XLOTRK 


/SETUP ADDRESS WORD IN BUFFER 


36 3 1 


U37 




TAD 


TCNTR3 


/GET DISK ADDRESS 


3632 


7104 




CLL RAL 




/PUT EXTENDED BIT IN LINK 










K77 ■ 0 




3634 


1463 




TAD I 


XLOTRK 


/ADD IN SECTORS 


3635 


3463 




DCA I 


XLOTRK 


/SETUP ADDRESS WORD IN BUFFER 


3636 


7630 




S2L CLA 




/SET EXTENDED BIT???? 


3637 


7001 




lAC 




/5fESi i I 


3640 


1070 




TAD 


DRIVNU 


/ADD IfJ CURRENT DRIVE 


3641 


3464 




DCA I 


XHITPK 


/SETUP ADDRESS WORD IN BUFFER 


3642 


1464 




TAD I 


XHITRK 


/GET EXTENDED BIT 


3643 


1104 




TAD 


K4000 


. /FUNCTION WRITE DATA 


3644 


3151 




DCA 


CMREG 


/SETUP COHMAND REGISTER POINTER 


3645 


1463 




TAD I 


XLOTRK 


/GET CTL,, SURFACE! AND SECTOR 


3646 


4425 




DISKGO 




/WRITE ALL 


3647 


374S 




T45T ■ 




/TEXT POINTER 


3650 


5343 




JMP 


T45L 


/ERhOr, i^RIIE SKIP UR STATUS 


3651 


1142 




TAD 


TCNTPb 




3652 


1074 




TAD 


K0003 


/UPDATE SECTOR POINTER . 


3653 


3142 




DCA 


TCNTR6 




3654 


2116 




ISl 


TCNTR2 


/UPDATE SECTOR COUNTER 



/DO REST OF TRACK 
/UPDATE TRACK COUNTER 
/DO OTHERS 



/SETUP FIRST TIME POIhTLR 

/TRACK COUNTER POINTER 

/SETUP FOR READ CENTER FIRST 
/READ AND CHECK CENTER TRACK 
/POINTER 

/CHECK UPPER OR LOWER 
/CHECK LOWER 

/REDUCE OR UPDATE 

/SAVE THE TRACK TO READ 

/AMOUNT OF SURFACE SECTORS 

/SETUP SECTOR COUNTER 

/START WITH 0 

/GET DISK ADDRESS 

/PUT EXTENDED BIT IN LINK 

/SAVE RESULTS 
/SET EXTENDED BIT 
/YES 

/SETUP COMMAND FOR READ DATA 

/GET SECTOR POINTER 

/MASK 

/ADD IN TRACK 
/READ DATA 
/TEXT POINTER 

/ERROR» READ SKIP OR STATUS 
/CET FIRST TIME POINTER 
/FIRST TIME???? 
/NO 

/CHECK DATA READ 
/DATA ALL O.K. 
/ERROR* DATA 

/UPDATE SECTOR POINTER 

/UPDATE SECTOR COUNTER 
/DO REST OF SURFACE 
/CLEAR FIRST TIME FLAG 
/UPDATE TRACK COUNTER 
/DO OTHER TRACKS 
/GET CURRENT TRACK POINTER 
/UPDATE 
/SAVE IT 

/UPDATE TOTAL AMOUNT TO DO 
/MORE TO DO 

/ALL O.K. TO END OF TEST 



/ PALIO V142 20-DEC-73 I3l54 PAGE i-4l 



3655 


5226 




JMP 


T45R2 


3656 


2140 




XSZ 


TCNTR4 


3657 


5212 






T4SR1 


3660 


7340 


/ 


CLA CLL 


CMA 


3661 


3145 




DCA 


CRPEGl 


3662 


7346 




CLA CLL 


CMA RIL 


3653 


3140 




DCA 


TCNTR4 


3664 


1135 




TAD 


TCNIRI 


3665 


3137 




OCA 


TCNTR3 


3666 


5276 




JMP 


T4SA2 


3667 


1140 


T45R3, 


TAD 


TCNTR4 


3670 


7110 




CLL RAR 




367 1 


7630 




SZL CLA 




3672 


1122 




TAD 


K7740 


3673 


1012 




TAD 


K0020 


3674 


1135 




TAD 


TCNTRl 


3675 


3137 




DCA 


TCNTR3 


3676 


1107 


T45A2, 


TAD 


K7760 


3677 


3136 




DCA 


TCNTR2 


3700 


3142 




DCA 


TCNTR6 


3701 


1137 


T45R4, 


TAD 


TCNIR3 


3702 


7104 




CLL RAL 




3703 


0107 




AND 


K77bO 


3704 


3146 




OCA 


CRREG2 


3705 


7630 




SZL CLA 




3706 


7001 




I AC 




3707 


3151 




DCA 


CMREG 


3710 


1142 




TAD 


TCNTR6 


3711 


0116 




AND 


K0017 


3712 


U46 




TAD 


CRREG2 


3713 


4425 




DISKGO 




3714 


3745 




T45T 




3715 


5343 




JMP 


T45E 


3716 


1145 




TAD 


CRREGl 


3717 


7650 




SNA CLA 




3720 


1112 




TAD 


K2525 


3721 


1113 




TAD 


K2525 


3723 


4427 




FIGURE 




3723 


7610 




SKP CLA 




3724 


5343 




JMP 


T4SE 


3725 


1143 




TAD 


TCNTR6 


3726 


1076 




TAD 


K0005 


3727 


3142 




DCA 


TCNTR6 


3730 


2136 




ISZ 


TCNTR2 


3731 


5301 




JMP 


T45R4 


3732 


3145 




DCA 


CRREGl 


3733 


2140 




ISZ 


TCNTR4 


3734 


5267 




JMP 


T4SR3 


3735 


IU5 




TAD . 


TCNTRl 


3736 


1011 




TAD 


KOOlO 


3737 


3135 




DCA 


TCNTRl 


3740 


2141 




ISZ 


TCNXRS 


3741 


5204 




JMP 


T45SC 


3742 


443? 




NERROR 





P^LiO V142 
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3743 4440 

3744 ibOQ 

3745 0000 

3746 5747 

3747 4040 

3750 7156 
4000 



T45fc:, 



T45T» 
/ 



F.RROR 
TST45 
0000 

JMP X 
ENDTST 

7i5b 



/CRKOKf TRACKS AFrCCTED 

/SCOPE LOOP POINTER 
/MODIFIED TEXT POINTER 

/TO EwD OF TEST 



K?i56, 
/ 

PAGE 
/ 

/PROGRAM TO AID IM HEAD ALIGNMENT, 

/GET TWO SEPARATE SEEK ADDRESS FROM 

/THE SWITCH REGISTEH AND SEEK ONL^ BETWEEN 

/THEM. SECOND ADDRESS MAY BE CHANGED AT ANT TIME, 



4000 


7604 


SfiSEK, 


LAS 




/GET FIRST ADDRESS 


4001 


3135 




DCA 


TCNTRl 


/SAVE IT 


4002 


7402 


HEDHLTf 


HLT 




/WAIT FUR SECOND ADDRESS 


4003 


7604 


RE5CK» 


LAS 




/GET SECOND ADDRESS 


4004 


3136 




DCA 


TCNTR2 


/SAVE IT 


4005 


1136 




TAD 


TCNTR2 




4006 


0100 




AND 


K0007 


/MASK DRIVE ♦ EXT, BIT 


4007 


U03 




TAD 


K3000 


/GET SEEK FUNCTION 


4010 


4450 




LDCMD 




/LOAD COMMAND REGISTER 


40U 


1136 




TAD 


TCNTR2 




4012 


0107 




AND 


K7760 


/MASK OFF CYLINDER + SURFACE 


4013 


4452 




LDADO 




/GO SEEK ONLY 


4014 


4447 




DSKSKP 




/SKIP ON DONE 


4015 


5214 




JMP 


.•t 




4016 


4453 




CLRALL 




/CLEAR STATUS 


4017 


4444 




PDSTAT 




/READ STATUS 


4020 


7640 




8ZA CLA 




/DRIVE DONE? 


4021 


5216 




JMP 


.-3 


/NO, WAIT 


4022 


U35 




TAD 


TCNTRl 


/GET FIRST ADDRESS 


4023 


0100 




AND 


K0007 


/MASK DRIVE EXT, BIT 


4024 


1 103 




TAD 


K3000 


/GET SEEK FUNCTION 


4025 


4450 




LDCMD 




/LOAD COMMAND REGISTER 


4026 


1135 




TAD 


TCNTRl 




4027 


0107 




AND 


K7760 


/MASK OFF CXLiNDER AND SURFACE 


4030 


4452 




LDADO 




/LOAD AND GO SEEK 


4031 


4447 




DSKSKP 




/WAIT FUR DONE 


4032 


523 1 




JHP 


.•I 




4033 


4453 




CLRALL 




/CLEAR STATUS 


4034 


4 444 




RDSTAI 




/READ STATUS 


4035 


7640 




SZA CLA 




/DRIVE DONE? 


4036 


5233 




JMP 


.-3 


/HO, WAIT 


4037 


5203 




JMP 




/CHECK FOR NEtt ADDRESS 



/CONTAINS fc'ND OF TEST TYPE OUT A^D A CHtCK Ut^ S^P3«1 
/ifiHlCH IS CQNTINI'E TO TEST CUHPEf^T DISK, 
■ /ALSO IF THERE IS MQPE THAN i DI5K ON THE SYSTEM 
/AND THEY HAVE ALL RUN THE COMPLETE TEST, RUN OVERLAP 
/SEEKS AND OVERLAP SEEKS* WRITE, AND READ DATA ON ALL 
/DRIVES 
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4040 


7604 


/ 

ENDTST 


( LAS 






4041 


OOlb 




AND 


K0400 


/MASK SWITCH 3 


40 4 2 






SZA CLA 




/LOOP ON SAME DISK 


4043 


5264 




JMP 


SAMDSK 


/YES 


4044 


1071 




TAD 


DRIVSV 




4045 


1450 




SNA 




/WAS THERE AND EXTRA 


4046 


5264 




JMP 


SAMDSK 


/NOf ONLY DISK 0 


4047 


7104 




CLL PAL 






4050 


7041 




CIA 






4051 


1070 




TAD 


DRIVNO 


/CURRENT DRIVE 


4052 


7650 




SNA ClA 




/STAPT OVER YET 


4053 


526U 




JMP 


TSTSEK 


/YE5» TEST OVERLAP SEEKS 


4054 


7326 




CLA CLL 


CML RTL 




4055 


1070 




TAD 


DRIVNO 




4056 


3070 




DCA 


DRIVNO 


/UPDATE DRIVE NUMBER 


4057 


5273 




JMP 


NEXDSK 


/TEST ^JEXI DISK DRIVE 


4060 


4765 


TSTSEK, 


r JMS I 


XLAP 


/PERFORM OVERLAP SEEKS 


4061 


4764 




JMS I 


XGRONK 


/PERFORM OVERLAP SEEKS 


4062 


4766 




JMS I 


XOVRRD 


/OVERLAP SEEKS ♦ WRITES + 


4063 


3070 




DCA 


DRIVNO 


/SETUP DRIVE NO, 


4064 


4462 


SAMDSK, 


f CBLF 






406S 


4457 




PRNTER 




/PRINT PASS COMPLETE 


4066 


6741 




TEXEND 






4067 


7604 




LAS 






4070 


0075 




AND 


K0004 




4071 


7640 




SZA CLA 




/SWITCH 9 SET? 


4072 


7402 


ENDHLT, 


r HLT 




/YESi STOP PROGRAM 


4073 


7301 


NEXDSKi 


r CLA CLL 


lAC 




4074 


4453 




CLRALL 




/DCLR 


4075 


3132 




DCA 


REGO 




4076 


3133 




OCA 


RECi 




4077 


5700 




JMP I 




/LOOP ON PROGRAM 


4100 . 


0235 




TSTO 







/ 

/THE FOLLOWING IS A ROUTINE TO CHECK THE WRITE PROTECT 
/FUNCTION WHEN IT IS MANUALLY SET BY THE OPERATOR, 
/NOTEl NO SCOPE LOOPS ARE AVAILABLE FOR THIS TEST. 
/ 



4101 


7604 


MANPROf LAS 




/GET THE SWITCHES 


4102 


7104 


CLL RAL 






4103 


0077 


AND 


K0006 


/MA^K DRIVE NUMBER 


4104 


3070 


DCA 


DRIVNO 


/SAVE DRIVE NUMBER 


4105 


lilO 


TAD 


K7700 




4106 


3133 


DCA 


R£G1 


/SETUP PASS COUNTER 


4107 


3132 


DCA 


REGO 


/SETUP FLAG POINTER 


4110 


1112 


TAD 


K2525 


/DATA PATTERN TO WRITE 


4111 


4430 


FILBUF 




/FILL OUTBOUND BUFFER 


4112 


1070 


TAD 


DRIVNO 




4113 


■3464 


DCA I 


XHITPK 


/SETUP ADDRESS WORD IN BUFFER 


4114 


3463 


DCA I 


XLOTRK 


/SETUP ADDRESS wOrD IN BUFFER 


4115 


1114 


TAD 


KbOCO 


/WRITE ALL FUNCTION 


4110 


3151 


DCA 


CMREG 


/SETUP COMMAND 


4117 


4425 


OISKGO 




/WRITE ALL TO SECTOR 0 


4120 


4161 


TMPROI 




/TEXT POINTER 
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d 1 ^ 3 








U C D Q 

MP EBP 


/EPRORf STATUS 


4122 


' 


]U U U f T 1 

/ 


f HLT 




/HALT AND WAIT FOR UPERATDP 


4 i 2 3 


4431 


MpP 1 » 


K I L B U F 




/CLEAR OUTBOUND BUFFER 


4124 


1 07 0 




TAD 


DB I V No 




4 I 2S 


346 4 




DC A I 


XrilTRK 


/SETUP ADDRESS v^OrD IN BUFFER 


4 1 26 


1114 




TAD 


K5 000 


/WRITE ALL FUNCTION 


4127 


3 15 I 




DC A 


CMREG 


/SETUP COMMAND REGISTER 


4 1 3 0 


4425 




diskgq 




/hRlTE ALL TO SECTOR 0 


4131 


4 1 6 1 




TmPROT 




/TEXT POINTER 


413 2 


7 000 




NQp 






413 3 


7 32 b 




CLA CLL 


CHL RTL 




4 i 3 4 


t 0 1 2 




TAD 


K 0 020 


/MAKE EXPECTED ST -MUS 


4 1 3S 


314 4 




DC A 


GUREG2 


/SETUP COMPARfc, REGISTER 


4 1 36 


1 1 7g 




TAD 


K5300 






3361 




DC A 


TMPROT 


/SETUP TEXT POINTER 


4140 






TAD 


STRLG 


/GET STATUS READ 


4141 


4 44 2 




ACCMP i 




/CHECK RESULTS 








S K P CLA 




/STATUS 0 , K , 










Mr'ERR 


/ERROR* WRITE PROTECT 


41 44 






CLA CLL 


I AC 


/ENABLE CLEAR CONTROL 




AA\i 




C LP A LL 




/CLEAR CONTROL 








K I L B U F 




/CLE.AK UATA BUrrc-R 




\ I 




TAD 


K 1 000 


/FUNCTION READ ALL 


4150 


3 1 5 1 




DC A 


C MRE^G 


/SETUP COMMAND 


4151 


4425 




DI SKGU 




/READ ALL SECTOR 0 


4 1 5 2 


4 i 6 1 




TMPROT 




/TEXT POINTER 




5 35 7 






MPERP 


/ERROR 


4154 


ni2 




TAD 


K2525 


/EXPECTED PATTERN 


4155 


4427 




FIGURE 




/CHECK DATA READ 


4156 


4 4 3 7 




N£RROR 




/ALL 0,K« GO LOOP 64 TIMES 


415 7 


4 44 0 


MpERB , 


ERROR 




/ERROR* WRITE PROTECT 


4160 


4123 




MPRl 






4161 


0000 


TMPROT, 


. 0000 




/TEXT POINTER 


4162 


7402 


MPHLT2* 


' HLT 




/SUCCESSFUL WRITE PROTECT 


4163 


5301 


/ 


JMP 


MANPRO 


/REPEAT 


4164 


4265 


XCRONKi 


' gronk 






416S 


4200 


XLAP, 


OVRLAP 






4166 


4400 


XOVBBD* 


i OVPBED 








4200 


/ 

PAGE 












/BDUTINE TO DO ( 


3VJ!:RLAP SEEKS ON 


EXISTING DRIVES 






/AFTER 
/ 


ALL HAVE 


RUN THE COMpLETii; 


DIAGNOSTIC 


4 2 00 


0000 


OVRLAP, 


. 0 






4 2 01 






TAD 


K4000 




4202 


3141 




OCA 


TCMTR5 


/PASS COUNTER 


4203 


1071 


0 V P R 1 , 


TAD 


ORIVSV 


/GFT AMOUNT OK DRIVES 


4204 


7040 




CMA 






4205 


3HU 




DC A 


TCNTR4 


/SETUP COUNTKH 


4206 


3137 




DCA 


TCN1R3 


/START wiTH DRIVE 0 


4207 


113? 


0VPR2f 


TAD 


rCNTR3 




42t0 


7104 




CLL RAL 







PALiO 


Vi42 


20-DFC 


-73 


I 3 f 5 4 


4211 


3 07 0 




DCA 


DHI VNG 


4212 


1137 




TAD 


TCNTR3 


4213 


4422 




RANADD 




4214 


4420 




DSKOUI 




4215 


4453 




CLRALL 




421b 


2137 




ISZ 


TCNTR3 


4217 


2140 




ISZ 


TCNTR4 


4220 


5207 




JMP 


0VRH2 


4221 


3137 




DCA 


TCNTR3 


422 2 


1071 




TAD 


DRI VSV 


4223 


7040 




CMA 




4224 


3140 




OCA 


TCMR4 


4225 


1137 


0VRP3/ 


TAD 


TCv'TRS 


422b 


4421 




DSKIN 




4227 


52 32 




JMP 


NDTDON 


4230 


5240 




JMP 


OVPOK 


4231 


5261 




JMP 


OVRERR 


4232 


2137 


NOTDON, 


t ISZ 


TCNTR3 


42 33 


1137 




TAD 


TCNTR3 


4234 


U40 




TAD 


TCNTP4 


4235 


7640 




SZA CLA 




4236 


5225 




JMP 


0VPR3 


42 37 


5221 




JMP 


0VPR3 -4 


4240 


7340 


CVROK, 


CLA CLL 


CMA 


4241 


3140 




DCA 


TCNTR4 


4242 


2141 




ISZ 


TCNTR5 


4243 


5207 




JMP 


0VRR2 


4244 


3137 




DCA 


TCNTR3 


4245 


1071 




TAD 


DRIVSV 


4246 


7040 




CMA 




4247 


3140 




DCA 


TCNTR4 


4250 


113? 


ALLBAK, 


. TAD 


TCNrR3 


4251 


4421 




DSKIN 




4252 


5250 




JMP 


ALLBAK 


4253 


7610 




SKP CLA 




4254 


5261 




JMP 


OVREBR 


4255 


2137 




ISZ 


TCNTR3 


4256 


2140 




ISZ 


TCNTR4 


4257 


5250 




JMP 


ALLBAK 


4260 


4437 




NERROR 




4261 


4440 


OVRERR* 


ERROR 




4262 


4201 




OVRLAP . 




4263 


5300 




5300 




4264 


5600 




JMP I 


OVRLAP 



/DISK NO, POINTER 

/SELECT A RANDOM ADDRESS 
/SEND DISK OUT 
/CLEAR STATUS 
/UPDATE DRIVENUMBEK 
/UPDATE DISK COUNTER 
/DO ALL EXISTING DISKS 
/CLEAR FOR 0 
/GET AMOUNT OF DRIVES 

/SETUP COUNTER 

/CHECK FOR DRIVE DONE 

/DRIVE NOT DONE 

/DRIVE DONE AND NQ ERRORS 

/DRIVE ERRORS 

/UPDATE DISK NUMBER 



/LAST EXISTING DRIVE 
/NO, 00 REST 
/JfES, RESET 



/UPDATE PASS COUNTER, DONE ? 
/NO, SEND OUT 
/SET FOR 0 



/CHECK FOR DRIVE DONE 
/HAIT FOR THIS DRIVE 
/tiAIT FOR NEXT 
/DRIVE ERRORS 

/LAST DRIVE HOME YET 

/y*AIT FOR ALL 

/O.K. TO NEXT 

/ERROR, OVERLAP SEEKS 

/SCOPE LOOP POINTER 

/TEXT POINTER 

/ID VEXT TEST 



/ROUTINE TO Da UVERLAP SEEKS AND 
/REALLY SHAKE THE DRIVES 

/ALL DRIVES PERFORM "SEEK ONLY" BETWEEN 

/312 AND SOME RANDOM TRACK, 

/ 

4265 0000 GRONK, 0 

4266 1105 TAD KbOOO 

4267 3141 DCA TCNTR5 

4270 1071 TAD DRIVSV 

4271 7040 CMA 



/CLEAR PASS COUNTER 
/AMOUNT OF DRIVES 
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4272 


3140 




DC ft 


TCNrR4 


/SETUP POINTER 


4273 


3137 




DC ft 


TCNTR3 


/START WITH 0 


4274 


1137 




TAD 


TCNTR3 




4275 


7i04 




Chi RAL 






4276 


3070 




DCA 


DPIVND 


/SETUP DPIVE NO, PDINTEH 


4277 


1137 




TAD 


TCNTR3 




4300 


1 777 ' 




TAD 


DSKPOT 


/GET ADDRESS POINTER 


4301 


3136 




DCA 


TCNTR2 


/SAVE IT 


4302 


1536 




TAD I 


TCNTR2 


/GET LAST VALUE 


4303 


7110 




CLL PAP 






4304 


7630 




SZh Chk 




/EXT, BIT SET? 


4305 


5311 




JMP 




/XES# GO TO OTHER THAN 312 


4306 


1066 




TAD 


TRK212 




4307 


7121 




CLL CML 


I AC 


/SET INDICATORS 


4310 


5315 




JMP 


.♦5 


/SAVE AND SEND DRIVE OUT 


43U 


1137 




TAD 


TCNTP3 


/GET SAVE POINTER 


4312 


4422 




PANADO 




/GET PANDOM ADDRESS 


4313 


0370 




AND 


A7776 


/CLEAR EXT, BIT 


4314 


7100 




CLL 






431S 


3536 




DCA I 


TCNTR2 


/RESET IT 


4316 


1536 




TAD 1 


TCNTR2 


/GET ADDRESS 


4317 


4420 




D5K0UX 




/SEND DRIVE OUT 


4320 


4453 




CLBALL 




/CLEAR STATUS 


4321 


2137 




T5Z 


TCNTR3 


/.UPDATE POINTER 


4322 


2140 




I5Z 


TCNTR4 


/UPDATE COUNTER 


4323 


5274 




JMP 


GRNKPl 


/MORE TO SEND OUT 


4324 


3137 




DCA 


TCNTB3 


/START CHECK AT 0 


4325 


1071 




TAD 


DRIVSV 




4326 


7040 




CMA 






4327 


3140 




OCA 


TCNTF4 


/SETUP AMOUNT COUNTER 


4330 


U37 


GRNKR^f 


TAD 


TCNTR3 




4331 


4431 




D5KIS 




/CHECK FOR DRIVE DONE 


4332 


5335 




JMP 


NTGRNK 


/DRIVE NOT DONE 


4333 


5343 




JMP 


GBNKOK 


/DONE SEND BACK OUT 


4334 


5364 




JMP 


GRNKER 


/DRIVE ERRORS 


433S 


2137 


NTGRWK, 


ISZ 


TCNTR3 


/UPDATE DRIVE NO, POINTER 


4336 


U40 




TAD 


TCNTR4 




4337 


1137 




TAD 


TCNTR3 




4340 


7640 




SZA CLA 




/LAST ONE YET? 


4341 


5330 




JMP 


GRNKR2 


/hO. 


4342 


5324 




JMP 


GRNKR2 -4 


ntS, RESET POINTER 


4343 


7340 


GpNKOKf 


CLA CLL 


CMA 




4344 


3140 




DCA 


TCNTR4 


/SETUP POINTER 


4345 


2141 




tsz 


TCNTR5 


/UPDATE PASS COUNTER 


4346 


5274 




JMP 


GBNKRl 


/NOT DONE YET 


4347 


3137 




DCA 


TCNTR3 




4350 


1071 




TAD 


DRIVSV 




4351 


7040 




CMA 






4352 


3140 




DCA 


TCNTR4 




4353 


1137 


GBNKP3r 


TAD 


TCNIP3 




43S4 


4421 




DSKI« 




/CHLCK FOR. DISK DUNE 


4355 


5353 




JMP 


GPNKR3 


/WAIT FOR DRIVE 


4356 


7610 




SKP CLA 




/WAIT. FOR NEXT ONK 


4357 


5364 




JMP 


GRNKER 


/DRIVE ERRORS 


4360 


2137 




ISZ 


TCNTR3 
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/MORE TO ^AIT FOR 

/O.K. TO NEXT TEST 
/OVERLAP SEEK ERRORS 
/SCOPE LOOP POINTER 
/TEXT POINTEP 
/EXIT 



4377 4535 

4400' PAGE 
/ 

/PO'JTINt TO PtPFORM RA^/DOM OVERLAP SEEKS, WRITES AND, 
/BEADS UN ALL EXISTING DRIVES AFTER THEV HAVE RUN THE 
/COMPLETE DIAGNOSTIC. 



4400 


0000 


OVPRED, 


0 






4401 


7330 




CLA CLL 


CML RAR 




4402 


3141 




DCA 


TCNTR5 


/PASS COUNTER 


4403 


1071 


OVRBDl* 


TAD 


DRIVSV 


/GET AMOUNT OF DRIVES 


4404 


7040 




CMA 






4405 


3140 




DCA 


tCNTR4 


/SETUP COUNTER 


440b 


3137 




DCA 


TCNTR3 


/START WITH DRIVE 0 


4407 


1137 


0VRBD2, 


TAD 


TCf^TR3 




4410 


7104 




CLL RAL 






4411 


3070 




DCA 


DRIVNO 


/SETUP DRIVE POINTER 


4412 


1137 




TAD 


TCNTR3 


/SELECT A RANDOM ADDRESS 


4413 


4422 




PANADD 




4414 


4420 




DSKOUT 




/SEND DISK OUT 


4415 


4453 




CLRALL 




/CLEAR STATUS 


4416 


2137 




ISZ 


TCNTP3 


/UPDATE DISK NUMBER 


4417 


2140 




ISZ 


TCNTR4 


/UPDATE DISK COUNTER 


4420 


5207 




JMP 


0VBRD2 


/DO ALL EXISTING DISKS 


4421 


3137 




DCA 


TCNTR3 


/CLEAR FOR 0 


4422 


1071 




TAD 


DBIVSV 


/GET AMOUNT OF DRIVES 


4423 


7 040 




CMA 






4424 


3140 




DCA 


TCNIR4 


/SETUP COUNTER 


4425 


1137 


OVPPDi# 


TAD 


TCNTP3 




4426 


4421 




DSKIN 




/CHECK THIS DRIVE 


4427 


5234 




JMP 


CHKNEX 


/CHECK FOR NEXT DRIVE 


4430 


5242 




JMP 


OVBDOK 


/DONE AND NO ERRORS 


4431 


1170 


POLEPK, 


TAD 


K5300 




4432 


33 32 




DCA 


TOVRDT 


/SETUP TEXT POINTER 


4433 


5 3 30 




JMP 


OVPDER 


/ERRORS 


4434 


2137 


CHKNEXf 


ISZ 


TCNTR3 


/UPDATE DISK NUMBER 


4435 


1137 




TAD 


TCNTR3 




4436 


1140 




TAD 


TCNXR4 




4437 


7640 




SZA CLA 




/LAST EXISTING DRIVE 


4440 


5225 




JMP 


0VRRD3 


/NO, DO PEST 


4441 


5221 




JMP 


0VPRD3 -4 


/\F.St RESET 


4 442 


1335 


OVRDDK, 


TAD 


DSKPOT 


/GET STORAGE pOlNTEp 


4443 


1137 




TAD 


TC?>JTP3 


. /ADD IN DRIVE NUMBER 


4444 


3334 




DCA 


DSKAOD 


/HAKr: ADDRESS 


4445 


1734 




TAD I 


DSKADD 


/GET DISK ADDRESS 



4361 2140 ISZ TCNTR4 

4362 5353 JMP GRNKR3 

4363 4437 MEPROR 

4364 4440 GRNKER, ERRUR 

4365 4266 GRONK +1 
•4366 5300 5300 

4367 5665 JMP I GRONK 
/ 

4370 7776 A7776, 7776 
/ 



PALi 0 


V i 4 2 




13 13 


P Au£ 1 


•48 




4446 




DCA 


TCNTR2 






/SAVE IT 


4 4 4 7 


1 075 










/GET POINTER 


4 45 0 




TAD 


KO 00 4 






/ADD IN FUDGE FACTOR 




33 34 


DCA 


D6KADD 






/MAl^E ADDRESS 


445 2 


1 1 3 7 


1 


TC MP 3 






/GET DISK NUMBER POJNTEP 




^ 


C L L H A L 












3070 


OC A 


DH I V'^U 






/MAKE DISK NUMBtR 




1113 


TAD 


K5 25 2 






/GET DATA PATTERN TU USt 




f t 


F 1 L b U f ' 








/FILL DATA flUFFICR 


^ At 


1 7 3 4 


TAD 1 


nSK ADD 






/GET EXTENDED BIT 




l^I^ 


TAD 


DK 1 V NO 






/ADD IN DRIVE NUMBER 




3<* 64 


DC A I 


XH I IRK 






/SETUP ADDRESS WORD IN BUFFER 




113 6 • 


TAD 


TCN TR2 






/GET CYL,, SURFACE, AND SECTOR 




3 46 j 


DCA I 


XLOTRK 






/SETUP ADDRESS i^OF.D If. BUFFER 






TAD I 


XH I I RK 






/GET EXTENDED BIT 


4465 


^ J * 




K 40 0 0 






/ADD IM WRITE FUNCTION 


4 466 




DCA 


CMBEG 






/SETUP COMMAND POINTER 




1 463 


It ecrr- 


xlqtpk 






/GET ADDRESS 


447c 


4435 


DISK uU 








/DISK WRITE DATA 


4 47 1 


4632 


T 0 V R D T 








/TEXT PUlNTER 


4 47 2 


5 3 3 0 


t^irf unr 


u V M u t r 






/ERROR, WRITE SKIP OP STATUS 


447 3 


4 431 


KILBUF 








/CLEAR PATA BUFFER 








Otir- AUU 






/GET EXTENDED BIT 


4475 


3 15 1 




CMRCG 






/SETUP COMMAND REGISTER 


447 b 


1 1 36 


TAD 


TCNTR2 






/bc-T L)IS^ AyURc.5S 


447 7 


15 


D X SK vtU 








/GO, READ DATA 






TOVPDT 








/TEXT POINTER 


4501 


5330 




0 V RDER 






/ERROR 


45 0 2 


1113 




K5252 












FiUUKt 








/WORD BY WORD COMPARE DATA 




7M 0 


TMD 








/DATA 0,K, CONTINUE 




5330 




n If B r\ fl» n 






/DATA ERROR 


4506 


4 1 

I 1 J ' 


TAD 


■r^ till B 4 








450 7 


4422 


ranadd 








/GENERATE RANDOM ADDRESS 


4510 


4420 


DSKOUX 








/SEND DRIVE BACK OUT 


4511 


2141 


ISZ 


TC NTR5 






/UPDATE PASS COUNTER, DONE 7 


4512 


5 2 34 


JMP 


CHKMEX 






/CHECK FOR NEXT DRIVE 


4513 


3137 


DC A 


TCNTR3 






/SET FOR 0 


4514 


1071 


TAD 


DRI V S V 








*^ 1 f 


7 040 


CMA 










4516 


514 0 


DCA 


TCNTR4 








4517 


J 1 3 7 


RKDBAKj TAD 


TCNTR3 








^ K « ? 


4 4 2 1 


DSKI N 








/CHECK THIS DRIVE 


45 21 


5 3 ! 7 


JMP 


RLDBAK 






/WAIT FOR DRIVE 




I? 


SK P C L A 








/CHECK FOR NEXT 


453 J 






POLtR R 






/ERROR 


4524 


2137 


ISZ 


TCN IP 3 








4525 


2140 


ISZ 


TCNTR4 






/LAST DRIVE HOME VET 


4526 


5317 


JMP 


RKDBAK 






/WAIT FOR ALL 


4527 


4437 


NEPROR 








/O.K, TO NEXT 


4530 


4440 


OVRDEB, ERROR 








/OVERLAP SEEKS ♦ READ DATA 


45 3 1 


4401 


CVPRED 






/SCOPE LOOP POINTER 


4532 


5300 


TOVRDT, 5300 








/TEXT POINTER 


4S3i 


SbOO 


JMP I 


OVPRED 






/TO NEXT TEST 


PAL 10 


V142 


20-DEC-73 


13154 


PAGE 1« 


•49 




4534 


0000 


DSKADO. 0 










4S35 


6365 


OSKPOIi DSKOA 














/ROUTiNt TO CHECK DRIVE 


IN AC 






4536 


POOO 


DIN, 0 










4537 


7104 


CLL RAL 








J La A WIT v\nTur \tr\ 

/MAKE DkIVb> nOi 


4540 


4450 


LDCMD 








/r IRST SELECT DKIVK 


4541 


1 151 


TAD 


CMREG 








4542 


1015 


TAD 


K0200 








4543 


4450 


LDCMD 








/LOAP CwMMANP 


4544 


73 32 


CLA CLL 


CML RTR 






/MAZDt EArc.CTt.u oTATUo 


454& 


3144 


DCA 


G0ReG2 






/SE.TUP CuMPAHb. HEGiOTtP 


4S46 


4444 


RDSTAT 








/REAP STAIU5 


4S47 


4447 


DSK5KP 








jfttrfu CAD tsirvD 


4550 


5361 


JMP 


NDIN 








4551 


7330 


CLA CLL 


CML RAR 






/bArbCTfcU STAXUb 


4552 


3144 


DCA 


GDREG2 






/aETUr CUnrAKL Kbulolbn 


4553 


4444 


RDSTAT 










4554 


1104 


TAD 


K4000 






/ADD I« rUDOE FACTOR 


4555 


7640 


SZA CLA 








/O |K , IT7T 


455b 


2336 


ISZ 


DIN 






y t.- D D O 1 i 1 1 


4557 


2336 


ISZ 


DIN 








4560 


5736 


JMP I 


DIN 






/EXIT 


4561 


U05 


NOINf TAD 


K6000 








4562 


7640 


S£A CLA 








/SKIP IF NO ERROR 


4563 


5356 


JMP 


.-5 








4564 


5736 


JMP I 


DXN 






/EXIT 




4600 


/ 

PAGE 














/MANUAL FUNCTION TEST 












/LOAD ADDRESS 0201 OP "i 


MANUAL" 










/SET SWITCHES TO FUNCTION 










/PRESS START 














/MACHIKt SHOULD 


HALT 












/SET SWITCHES TO DISK ADDRESS 










/PRESS START 














/MACHINE SHOULD 


HALT 












/SET SWITCHES TO COMPLEMENT DATA PATTERN 






/PRESS START 














/MACHINE SHOULD 


HALT 












/SET SWITCHES TO 0000 












/PRESS START 














/INCASE OF FAILURES USE 


NORMAL 


SCOPE 


SWITCHES 






/IF LOOP IS DESIRED USE 


NORMAL 


SCOPE 


SWITCHES 


4600 


7604 


MANUAL, LAS 










4601 


0307 


AND 


K7707 






/l«ASK 






DCA 


TCNTRl 






/SAVE FUNCTION 


4603 


7 j4g 


CLA CLL 


CMA 








4b04 


3132 


DCA 


PECO 






/SETUP FOR U^E; PASS 


4605 




Rlf 








/USE CURRENT FIELD 


4606 


U35 


TAD 


TCNTRi 








460? 


J155 


DCA 


TCNTRl 






/ACTUAL FUNCTION 



LiO 


V142 


20-DEC 


«73 


i3{54 PAGE t-SO 




4610 


1135 




TAD 


TCNTRl 




4&U 


0077 




AND 


K0006 


/KASK DISK DRIVE 


46 i 2 


3070 




DC A 


DRIVNO 


/ACTUAL DRIVE 


4613 


7402 




HLT 




/WAIT FOP DISK ADDR, IN SWITCHES 


46 i 4 


7604 




LAS 






46i5 


31 3b 




DCA 


TCNTB2 


/SAVE DISK ADDRESS 


461 6 


7402 




HLT 




/«AIT FOR COMPLEMENT DATA 


46 1 7 


7604 




LAS 






4620 


3137 




DCA 


TCNTRi 


/SAVE IT 


4621 


7 4 02 




HLT 




/«AiT FOP OPERATOR TO CONTINUE 


4622 


1137 




TAD 


TtNTRJ 




4623 


4430 








/FILL PUFFER WITH DATA 


4624 


7300 


TMftNS* 


CLA CLL 






462!? 


1 US 




TAD 


TCMRl 


/GET FUNCTION 


4626 


oioe 




AND 


K7000 




4627 


1 105 




TAD 


K6000 




46 3Q 


7630 




SZL CLA 




/»AS IT A R£AD 


46 31 


7 34 0 




CLA CLL 


CMA 


/NO, SET A FLAG 


4632 


3140 




DCA 


TCNTR4 


/READ FLAG 


4633 


i I 35 




TAD 


TCNlRl 


/GET FUNCTION 


46 34 


0106 




AND 


K7000 


/MASK 


46 35 


1 1 1 4 




TAD 


K5000 




46 36 


7640 




SZ,A CLA 




/hAS IT A StEK 


46 3 7 


5247 








/NOT A SEEK 




1 1 35 




TAD 


TCNXRl 


/VES 


46 41 


3 1 5 t 




DCA 


CMReG 


/SETUP COMMAND 


46 4 2 


J i 36 




TAD 


TCNTR2 


/DISK ADDRESS 


4643 


4423 




SEEK 




/SEtK ONLY 


4644 


470b 




TMANT 




/TEXT POINTER 


464^ 


5 303 




JMP 


TMANE 


/ERROR, SKIP OR STATUS 


4646 


5302 




JMP 


TMAWOK 


/TO HANDLER 


4647 


1 1 35 


NTSEK, 


TAD 


TCNTRi 


/GET FUNCTION 


4650 


0100 




AND 


K0007 


/MASK 


4651 


3464 




DCA I 


XHITRK 


/SETUP ADDRESS WORD IN BUFFER 


4652 


1 135 




TAD 


TCNTRl 


/FUNCTION 


4653 


3151 




DCA 


CMREG 


/SETUP COMMAND 


4654 


1 136 




TAD 


TCNTR2 


/DISK ADDRESS 


465S 


3463 




DCA 1 


XLOTRK 


/SETUP ADDRESS WORD IN BUFFER 


4656 


1140 




TAD 


TCNTR4 


/GET READ FLAG 


4657 


7650 




SNA CLA 




/WAS IT A READ 


4660 


443 1 




KILBUF 




/YES, CLEAR BUFFER 


4661 


1136 




TAD 


TCNTR2 


/GET DISK ADDRESS 


4662 


4425 




DISKGO 




/DISK CO 


466 3 


4705 




TMANT 




/TEXT POINTER 


466 4 


530 3 




JMP 


TmAnE 


/ERROR 


4665 


1140 




TAD 


TCNTR4 


/GET READ FLAG 


4666 


7640 




S2A CLA 




/WAS IT A READ 


4667 


5302 




JMP 


TMANOK 


/oAS A aRITE, TO HANDLER 


4670 


1151 




TAD 


CMR£G 


/GET LAST COMMAND 


4671 


001 4 




AND 


KOlOO 


/KASK OUT HALF BIT 


4672 






SNA CLA 




/*A5 IT HALF BLOCK TRANSFERS 


4673 


5300 




JMP 


,♦5 


/NO, COMPARE WHOLE BLOCK 


4674 


1137 




TAD 


TCNTR3 


/GET GOOD WORD POINTER 


4675 


4426 




HAFCHK 




/CHECK FOR HALF BLOCK 


4676 


5302 




JMP 


TMANOK 


/U.K. NO ERRORS 



'ALIO 


Vi42 


20-DEC' 


4677 


5303 




4700 


1137 




47 0 1 


4427 




47 02 


4437 


TMANOK 


4703 


4440 


TMANE, 


4704 


4624 




4705 


5373 


TMANT, 






/ 


4706 


5224 








/ 


4707 


7707 


K7707, 






/ 



JMP 
TAD 

FiGURt 

NERRDR 

ERROR 

TMANS 

5373 

JMP 

7707 



t3l&4 PAGE 1*51 



TMANE 
TCNXB3 



TMANS 



/WHEN IT IS SET UNDER PROGRAM CONTP 
/NOTE I no' SCOPE LOOPS ARE AVAILABLE 
/ 



4710 


7604 


AUTPRO* 


LAS 




4711 


7104 




CLL RAL 




4712 


0077 




AND 


K0006 


4713 


3070 




DCA 


DRIVNO 


4714 


7344 




CLA CLL 


CMA RAL 


4715 


3133 




OCA 


REGL 


4716 


3132 




DCA 


REGO 


4717 


1112 




TAD 


K2S2S 


47 20 


4430 




FILBUF 




4721 


1070 




TAD ■ 


DRIVNO 


4722 


3464 




DCA 1 


XHITRK 


4723 


3463 




DCA I 


XLOTRK 


4724 


lil4 




TAD 


K5000 


4725 


3151 




DCA 


CMREG 


4726 


4475 




DISKGO 




4727 


4775 




TAPROT 




4730 


5373 




JMP 


APERP 


4731 


U02 


APRl, 


TAD 


K2000 


4732 


1070 




TAD 


DRIVNO 


4733 


4450 




LUCMD 




4734 


4452 




LDADD 




4735 


4444 




RDSTAX 




4736 


7640 




SZA CLA 




4737 


5352 




JMP 


APAl 


4740 


4431 




KILBUF 




4741 


1070 




TAD 


DHIVNO 


4742 


3464 




DCA 1 


XHITRK 


474 3 


1114 




TAD 


K5000 


4744 


3151 




OCA 


CMREG 


4745 


4425 




DISKGO 




4746 


477b 




TAPROT 




4747 


7000 




NOP 




4750 


7326 




CLA CLL 


CML RTL 


4751 


1012 




TAD 


K0020 


4752 


3144 


APAI r 


DCA 


GDPfc.G2 


4753 


1170 




TAD 


K53UO 


4754 


3375 




DCA 


TAPHOT 


4755 


1147 




TAD 


STREG 


4756 


4442 




ftCCMPl 





/DATA ERROR 
/WAS A HEAD 

/WORD 8V hORD CQMPAKE OF DATA 
/NO ERPUPS 

/EPROB IN FUNCTION SELECTED 
/SCOPE LOOP POINTER 
/TEXT POINTER 

/ LOOP 



FUNCTION 
OL 

FOR THIS TEST 

/GET THE SWITCHES 

/MASK DRIVE NUMBER 
/SAVE DRIVE NUMBER 

/SETUP HEPEAT POINTER 

/DATA PATTERN TO WRITE 
/FILL OUTBOUND BUFFER 

/SETUP ADDRESS rtOBD IN BUFFER 

/SETUP ADDRESS WORD IN BUFFER 

/WRITE ALL FUNCTION 

/SETUP COMMAND 

/WRITE ALL TP SECTOR 0 

/TEXT POINTER 

/ERROR, STATUS 

/FUNCTION WRITE PROTECT 

/CURRENT DRIVE 

/LOAD COMMADN REGISTER 

/LOAD AND GO 

/READ STATUS REGISTER 

/SHOULD BE 0000 7?T? 

/ERROR, STATUS 

/CLEAR OUTBOUND BUFFER 

/SETUP ADDRESS WORD IN BUFFER 
/WRITE ALL FUNCTION 
/SETUP COMMAND REGISTER 
/rtRlTE ALL TO SECTOR 0 
/TEXT POINTER 



/MAKE EXPECTED STATUS 
/SETUP COMPARE REGISTER 

/SETUP TEXT POINTER 
/GET STATUS READ 
/CHECK RESULTS 



PALIO V142 



4757 


7610 




5KP CLA 




/STATUS 0»Kt 


4760 


5373 




JMP 


APERP 


/ERROR* WRITE PROTECT 


4761 


7301 




CL& CLL 


I AC 


/ENABLE CLEAR CONTROL 


4762 


4453 




CLfiAtL 




/CLEAR CONTROL 


476J 


1017 




TAD 


KIOQO 


/FUNCTION READ ALL 


4764 


3l5l 




DC A 


CHREG 


/SETUP COMMAND 


4765 


4425 




DISK.GO 




/READ ALL SECTOR 0 


4766 


4775 




TAPROT 




/TEXT POINTER 


4767 


5373 




JMP 


APERP 


/ERROB 


4770 


1112 




TAD 


K2525 


/EXPECTtD PATTERN 


4771 


4427 




FIGURL 




/CHECK DATA READ 


4772 


4437 








/ALL O.K. 00 ONE KOBE TIME 


4773 


4440 


ApEHR, 


CBPCJP 




/ERROR, WRITE PROTECT 


4774 


4731 




APPl 






4775 


0000 


TAPBOT, 


0000 




/TEXT PQINTKB 


477t> 


7402 




HLT 




/SUCCESSFUL WRITE PROTECT 


477? 


5310 




JMP 


AUTPRO 


/REPEAT 




5000 


/ 

PACK 












/SUBROUTINE FDR 


"EPPORS," SCOPE tOOPS, 


AND 






/EPKOR 
/ 


TYPEOUTS 






5000 


0000 


EPRO, 


0 






5001 


7 300 




CLA CLL 






5002 


IbOO 




TAD I 


ERRO 


/GET RESTART ADDRESS 


5003 


317S5 




DC A 


RESTRT 


/STORE 


5004 


7604 




LAS 




/GET SWITCH 0 


5005 


7 700 




SMA CLA 




/XS IT SCOPE LOOP 


5006 


5217 




JMP 


EFPAl 


/NOf CONTINUE 


5007 


7604 




LAS 




/(SET SWR2 


5010 


7006 




RTL 






son 


7710 




SPA CLA 




/INHIBIT BELL???T 


5012 


5215 




JMP 






50U 


1354 




TAD 


K0207 




5014 


4436 




TYPE 






5015 


1600 




TAD I 


EHRO 




5016 


5755 




JMP I 


E5C0PE 


/CHECK FOR BELL 


5017 


1600 


ERRAU 


TAD I 


EBPO 




5020 


3356 




DCA 


RETRN2 


/STORE FOB RETURN 


5021 


2200 




ISZ 


EBPO 




5022 


7301 




CLA CLL 


I AC 




5025 


1200 




TAD 


ERRO 


/NEXT TEST POINTER 


5024 


3357 




DCA 


INHIBT 


/STORE FOB SPECIAL RETURN 


5u25 


4462 










5026 


4462 




CRLF 






5027 


1600 




TAD r 


ERRU 


/GET TEXT POINTER 


5030 


0100 




AND 


K0007 


/MASK 9-11 


5031 


1365 




TAD 


HEDTAD 


/HAKE ERROR HEADER TAD 


5032 


32 33 




DCA 


t + l 




5033 


7402 




HLT 




/MODIFIED HEADER IAD 


5034 


32 36 




DCA 


.♦2 




5u35 


4457 




PRfJIER 




/MODIFIED HEADER POINTER 


503t> 


7402 




HLT 






5037 


4462 




CRLK 






M,10 


V142 


20-DEC- 


73 


13154 PACE 1"53 




5040 


4457 




PHNTER 




/PRINT PCt 


504 i 


5 7 5 0 




TEXPC 






5042 


7 340 




CLA CLL 


CM A 




504i 


1200 




TAD 


EBRO 


/GET PC POINTER 


5044 


4460 




OCTtL 




/PRINT PC STORED 


5045 


1600 




TAD I 


CHRO 


/GET TEXT POINTER 


5046 


7104 




CLL RAL 






5047 


7420 




SNL 




/NOT GDI REGISTER 


5050 


5264 




JMP 


NTGD 



5051 


3200 




DCA 


ERRO 


5052 


4457 




PRNIER 




5053 


5752 




TEXGD 




5054 


1200 




TAD 


ERRO 


5055 


7700 




SMA CLA 




5056 


5261 




JMP 


.♦3 


5057 


1143 




TAD 


GDREGl 


5060 


4461 




TWOCT 




5061 


1144 




TAD 


6DPEG2 


5062 


4460 




OCTEL 




5063 


7610 




SKP CLA 




5064 


3200 


NTGO# 


DCA EP 


5065 


1200 




TAD 


ERRO 


5066 


7104 




CLL RAL 




5067 


7420 




SNL 




5070 


5301 




JMP 


NTCHC 


5071 


3200 




DCA 


EBRO 


5072 


4457 




PRNTEB 




5073 


5754 




TEXCR 




5074 


1145 




TAD 


CBREGl 


5075 


4461 




TWOCT 




5076 


1 146 




TAD 


CRPEG2 


5077 


4460 




OCTEL 




5100 


7610 




SKP CLA 




5101 


3200 


NTCRC» 


DCA 


ERRO 


5102 


1361 




TAD 


XTEXT 


5103 


3364 




OCA 


PCNTR2 


5104 


1 362 




TAD 


XBEG 


5105 


3010 




DCA 


AUTOlO 


5106 


1115 




TAD 


K777 1 


5107 


3 363 




DCA 


PCNTRi 


5110 


1200 


STRAUT# 


TAD 


EBRO 


5111 


7500 




SMA 




5112 


5346 




JHP 


NQTEX 


5113 


7104 




CLL RAL 




5114 


3200 




DCA 


EBRD 


5115 


1364 




TAD 


PCNTR2 


5116 


2364 




ISZ 


PCNTP2 


5157 


2364 




ISZ 


PCNTR2 


5l2u 


3322 




DCA 


.+2 


5121 


4457 




PBNTEH 




5122 


7402 




HLT 




5123 


1410 




TAD 1 


AUTOiO 


5124 


4460 




OCTEL 





/V<AS IT A 6 BIT OCTAL BYTE 
/NO 

/GET DATA 
/PRINT TWO OCTAL 

/PRINT FOUR OCTAL 
/GET TEXT POINTER 



/PRINT CRI 

/PRINT 

/PRINT FOUR OCTAL 



/COUNTER FOR • OF HEADS 
/GET TEXT POINTER 

/NOT THIS ONE 

/GET TEXT MESSAGE POINTER 



/STORE FOB PRhTER 
/PRINT XXl 

/MODIFIED TEXT POINTER 
/PRINT FOUR OCTAL 





V142 


20-DEC" 


73 


13154 PAGE 1«S4 




Sl2b 


2363 


AGAIN, 


IS% 


PCNTRi 




5126 


5310 




JMP 


STRAUT 


/CHECK FOR NEXT XXt 


5127 


7604 




LAS 




/GET SWITCH 5 


5130 


700d 




PTL 




/SHIFT FOP TESTING 


5131 


0016 




AND 


KG400 


/MASK 


5132 


7650 




SNA CLA 




/WAS IT INHIBIT HALT 


5133 


5342 




JMP 


ERHLT9 


/ K 0 HALT 


5134 


7630 




S2L CLA 




/SAME OR hEXT TEST 


5135 


5340 




JMP 




/SAME TEST 


513b 


1357 




TAD 


I /< H 1 8 1 


/GET RETURN 


5137 


5755 




JMP I 


ESCOPE 


/CHECK FOR BELL 


5140 


1356 




TAR 


RfcTpN2 


/GET RETURN 


5141 


5755 




JHP I 


ESCOPE 


/CHECK FDR BELL 


5142 


. 7402 


EBHLT9» 


HLT 




/ALL RECOVERABLE ERROR HALTS 


5143 


47.60 




JM5 I 


XGTPEG 


/CntCK FOB GET ALL REGlbTtFo 


5144 


5756 




JMP I 


RETRN2 


/NU# TRI SAnC TtoT AGAiN 


5145 


5264 




JMP 


MTGD 


/DUMP 


5146 


7104- 


NOTtXf 


CLL PAL 






5147 


3200 




DCA 


ERPO 




5l50 


2364 




ISZ 


PC NT R 2 




5151 


2364 




ISZ 


PCNTR2 




5152 


2010 




ISZ 


AUTOl 0 




5153 


5325 


/ 


JMP 


AGAIN 




5154 


0207 


K0207 , 


0207 






5155 


5470 


ESCOP£f 


SCOPE 






5l5t> 


0000 


RETRN2 # 


0 






5157 


0000 


INHIBT* 


0 






5160 


5527 


XGTBEG , 


GTREG 






5161 


5756 


XTEXT# 


TEXST 






5162 


0146 


XpEGj 


CRREG2 






5163 


0000 


PCKTPl » 


0 






5164 


0000 


PCNTRi » 


0 






5165 


1366 


HEDTAD » 


TAD 


HgDLST 




5166 


6615 


HEDLST* 


CRTXl 






516? 


6630 




EBTX2 






5170 


6644 




ERTX3 






5171 


6662 




EBTX4 






5172 


6b 7 2 




ERTX5 






5173 


6704 




EBTX6 






5174 


6716 




ERTX7 






5175 


6726 




E8TX9 








5200 


/ 

PACt 









5200 0000 

5201 7450 

5202 1122 

5203 3221 

5204 7240 

5205 3231 

5206 6001 



/SUBROUTINE TO WAIT FqR INTERRUPTS 
/IF INTERRUPT 0CCUPE5 GO BACK ♦! 
/ 



0 

SNA 
TAD 
DCA 

CLA CmA 

DCA 

ION 



K7740 
COVPl. 



C0HP2 



/FAST OR SLOW 
/GET SLOW CONSTAMT 
/SETUP COUNTER 

/SETUP COUNTER 
/TURN IT ON 



LIO 


V142 


20-DEC- 


73 


13154 


5207 


22 3 1 




ISZ 


C0>^P2 


5210 


5207 




JMP 


t-l 


521 I 


222 1 




ISZ 


COWPl 


52 J 2 


5207 




JMP 


.-3 


52t 3 


6002 




lOF 




52 W 


5600 




JMP I 


IUN«T 


521 S 


2^00 


INTADD, 


I&Z 


lONlvT 




4447 




DSK5KP 




5217 


7402 


ERHLTi » 


HLT 




5220 


5600 




JMP I 


ICM^^T 
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5221 
5222 
5223 
5224 
522b 
5226 
5227 



0000 
3l5b 
liSb 
7041 
1144 
7640 
2221 



52 30 56 21 



5231 
5232 
5233 
5234 
5235 
5236 
5237 
5240 
5241 
5242 
5243 
5244 
5245 
5246 



5247 
5250 
5251 
5252 
5253 
5254 
5 255 
5256 
5257 
5260 



0000 
7 300 
1143 
OUb 
7041 
1145 
7640 
5245 
1146 
7041 
J 144 
7640 
22 3 1 
5631 



0000 
7300 
1122 
3221 
323 1 
2231 
5254 
2221 
5254 
5647 



/ROUTINE TO COMPARE AC 10 GDREG2 
/ 



DCA 
TAD 
CIA 
TAD 

SZA CLA 
ISZ 
JMP I 



ACRLG 
ACREG 



GDRtG2 



COMPl 
COMPl 



/TURN IT OFF 

/NO INT OCCUHED 

/DISK SKIP lOX 

/ERROR* ILLEGAL INTERRUPT 

/EXIT 



/SAVE AC 



/SKIP IF O.K. 
/ERROR* DON'T COMPARE 



/ROUTINE TO COMPARE CRREGl AND CRREG2 

/GDREGl AND GDREG2, 

/ 

C0MP2, 0 



CLA 


CLL 




TAD 




GDREGl 


AND 




K00t7 


CIA 






TAD 




CPPEGl 


SZA 


CLA 




JMP 




CRERR 


TAD 




CRREG2 


CIA 






TAD 




GDREG2 


SZA 


CLA 




ISZ 




C0MP2 


JMP 


I 


C0MP2 



/ROUTINE TO WAIT FOR 500 HS, 
/ 

WTISZ, 0 



CLA 


CLL 




TAD 




K7740 


DCA 




COMpi 


DCA 




C0MP2 


ISZ 




C0MP2 


JMP 




.-1 


ISZ 




COMpl 


JMP 




.-3 


JHP 


I 


WTISZ 



/NOT THE SAME 



/EPROB* NOT THE SAME 



/GET TIME CONSTANT 



/ROUTINE TO WAIT FOR DISK SKIPS 



PALlO 


VI 42 


2o«»DEC 


""7 3 
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S26i 


0000 


SKWAT» 


0 






5262 


7300 




CLA CLL 






526 3 


n 22 




TAD 


r Mu? 




5264 


3221 




DC A 






526!i 


32 31 






CU 




5266 


4447 




D5KSKP 




ir- C'/'^'^ /n<«Kl> "HTSK KKTP IQT" 


5267 


7610 




SKP CLA 






5270 


5276 




JMP 


, +6 


/(fUT Tnb O^^ir 


5271 


2231 




I S2 


C0MP2 




5272 


5266 




JMP 


.-4 




5273 


2221 




ISZ 


COMPi 




5274 


5266 




JMP 


,«6 




5275 


7610 




SKP CLA 




/NO SKIP OCCURRED 


5276 


2261 






5KWAT 




5277 


5661 




JWP I 


SKWAT 


/EXIT 






/SUBPUUTUE TO 


HEAD STATUS REGISTER 


5i00 


0^00 


RDSI, 


0 






5301 


6745 


I0T5* 


DRST 




/READ STATUS lOT 


5i02 


7410 




SKP 






530J 


7402 


ERHLT5 


, HLT 




/SKIP TRAP 


5304 


3147 




DCA 


STPEG 


/SAVE RESULTS 


5305 


1147 




TAD 


STBEC 




5306 


5700 




JhP I 


POST 


/EXIT 






f 

/subpouiinE to 


LOAD CURRENT ADDRESS REGISTER 


5307 


0000 


LDCA, 


0 






5310 


3154 




DCA 


ADPEG 


/SAVE IN ADDRESS 


531 1 


1 154 




TAD 


ADREG 




53U 


3153 




DCA 


CAREG 


/SETUP INITIAL CURRENT ADDRESS 


53i 3 


1154 




TAD 


ADREG 




53H 


6744 


I0T4# 


DLCA 




/LOAD CURRENT ADDRESS lOT 


5315 


5707 




JHP I 


LDCA 


/EXIT 


5316 


7402 


ERHLT4 
/ 


/ HLT 




/SKIP TRAP 






/ 

/SUBROUTINE TO 


LOAD TRACK ADDRESS REGISTER 


5i n 


0000 


LOAD, 


0 






5320 


3152 




DCA 


DAREC 


/SAVE OUTBOUND DATA 


5J21 


1152 




TAD 


DAREG 




5322 


^743 


I0T3, 


DLAG 




/LOAD DISK ADDRESS REGISTER 


5323 


57 17 




JHP I 


LDAD 


/EXIT 


5324 


7402 


EHHIjT3 


, HLT 




/SKIP TRAP 






/Sl'BROUTIfvE TO 


LOAD COMMAND REGISTER 


S325 


0000 




0 






5326 


3151 




DCA 


Cf^-PtG 


/SAVE OUTBOUND DATA 


5327 


U5l 




TAD 


CMPEG 




5330 


6746 


IDT6, 


DLDC 




/LOAD COMMAND REGISTER 



PALIO V142 



5331 
5332 



5725 
7402 



20-OEC-73 



J«P I 
EPHLT6, HLT 



13154 
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/EXIT 

/SKIP TRAP 



.'SUBROUTINE TO ISSUE •DSKP'* DISK SKIP lOT 



5333 
5334 
5 335 
5336 
5337 



5340 
5341 
5342 
5343 



0000 
6741 
7410 
2333 
5733 



0000 
6742 
5740 
7402 



SDKP, 0 
TOTlr DSKP 
SKP 
ISZ 
JHP 1 



SPKP 
SDKp 



/SU&POUTINE TO ISSUE "DCLR« CLEAR lOT 

/ 

CLDB, C 
ICT2» DCLP 

JMP I CLDR 
ERHLT2* HLT 



/DISK SKIP lOT 
/DID NOT SKIP 



/EXIT 



/DCLR «CLEAR TOT" 
/EXIT 

/SKIP TRAP 



5344 OOOU 

5345 6747 

5346 5744 

5347 7402 



5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5360 
5361 
5362 
5363 
5364 
5365 
5366 
5367 
5370 
537 1 
5372 



0000 

7300 

1130 ' 

3134 

7 3 30 

4455 

7010 

4455 

7300 

1015 

4455 

2134 

5362 

7300 

1012 

4455 

3152 

1152 

5750 

5400 



/SUBROUTINE TO ISSUE «OMAn» MAINTENANCE lOT 

/ 

LDMN» 0 

I0T7, DMAN /"DHAN" MAINTENANCE lOT 

JMP I LDMN /EXIT 
EPHLT7, HLT ''SKIP TRAP 

/ 

/SUBROUTINE TU SHIFT# THEN READ DISK ADDRESS 

/INTO DATA BUFFER, 12 SHIFTS 

/ 

RDAD, 0 

CLA CLL 
TAD M12 
OCA SaCNTl 
CLA CLL CML PAR 
LDMA^ 
PAP 
LDMAN 
CLA CLL 
TAD K0200 
LDMAN 

I6Z SBCNTl 
JHP ,-2 
CLA CLL 
TAD 



LD^AM 
DCA 
TAD 
JHP I 



K0020 

DAREG 
DAREG 
RDAD 



/BET MAIN(l) ENABLE BIT 
/LOAD MAINTENANCE 

/LOAD MAINTENANCE . 

/SHIFT TRACK ADDRESS BIT 
/LOAD MAINTENANCE lOT 

/SHIFT 12 BITS 



/READ DATA BUFFER 
/SAVE RESULTS 



/EXIT 



/ 

PAGb 
/ 

/SHoRuUIUE Tu READ DATA BUFFER TU AC 



5400 
5401 



0000 
7330 



PDBF, 



CLA CLL CML RAP 



20-DEC-73 
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LDMftN 






5*03 


1012 


TAD 


K00.20 




5404 


445b 






/LOAD MAINTENANCE 






DCh 


DBRfcG . 




540t> 


1 l-^O 


TAD 


DBRtC 




5407 




DCA 


DTRtG 




5410 


1 15i» 


TAD 


DTRLG 


/£X1T 


5411 


SbOO 


JMP I 


RDBr 






/ 

/subpcjUtine to i 


SHIFT COMMAND 


RE.GXSTER 10 






/DATA BUFFER IHtIN READ DATA 


BUFFER 


5412 


ooco 


RDCH, 0 






5413 


7300 


CLA CLL 






5414 


1130 


TAD 


Ml 2 




5415 


3134 


DCA 


SBCNTi 


/12 BIT SHIFT 


5416 


7330 


CLA CLL 


CML RAR 




5417 


4455 


LDMAN 




/LOAD MAINTENANCE 


5420 


7010 


RAR 






5421 


445b 


LDMAN 




/LOAD MAINTENANCE 


5422 


■'300 


CLA CLL 




/ENABLE BIT FOB SHIFT 


5423 


1016 


TAD 


K0400 


5424 


4455 


LDMAN 




/LOAD AND GO 


5425 


2134 


ISZ 


SBCNTI 




542b 


5224 


JMP 


.-2 


/SHIFT 12 


5427 


7300 


CLA CLL 




/ENABLE READ BUFFER 


5430 


1012 


TAD 


K0020 


5431 


4455 


LDHA>J 




/LOAD AND GO 


5432 


3151 


DCA 


CMREG 


/SAVE IT 


5433 


1151 


TAO 


CMBCG 


/EXIT 


5434 


5612 


JMP I 


RDCM 



/ROUTINE TO ZERO WORK BUFFER 



5435 


0000 


KLBUFi 


0 








5436 


7340 




CIA 


CLL 


CMA 




5437 


1067 




TAD 




BGNBUF 7/)/?/; 


/START OF BUFFER -1 


5440 


3010 




DCA 




AUTOlO 


/SETUP AUTO INDEX 


5441 


1123 




TAD 




K7 400 '.o^- 




5442 


3164 




DCA 




DATCNT 


/SETUP COUNTER 


5443 


3410 




DCA 


I 


AUTOlO 


/CLEAR BUFFER 


5444 


2164 




ISZ 




DATCNT 


/UPDATE COUNTER 


544b 


5243 




JMP 




• -2 


/NOT ALL CLEARED YET 


5446 


5635 




JMP 


I 


KLBUr 


/BUFFER CLEARED 



5447 COOO 

5450 3165 

5451 7340 

5452 1067 

5453 3010 

5454 1124 

5455 3164 



/ROUTINE TO FILL THE i^ORK BUFFER >JlTK 
/THE COMPLEMENT DATA THATS IN ThE AC. 
/ 

FLBUF* 0 

DCA SAVU&T 
CLA CLL CMA 



TAD 
DCA 
TAD 
DCA 



BGNbUK 
AUTUlO 
K7600 
DATCNT 



/C-oo 



/SAVE DATA WORD 



/START OF BUFFER •! 
/SETUP AUTO INDEX 



/SETUP COUNTER 



ALIO 


V142 


20-DCC 


-73 
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5456 


1165 


LPDAT, 


TAD 




SAVDAT 




5457 


3410 




DCA 


I 


AUTOlO 




5460 


1165 




TAD 




SAVDAT 




5461 


7040 




Cka 








5 46 2 


3410 




DCA 


I 


AUTOlO 




5463 


2164 




ISZ 




DATCNT 




5464 


5256 




JHP 




LPDAT 




5465 


1101 




TAD 




K12i4 




5466 


3410 




DCA 


I 


AUTOlO 




5467 


5647 




JMP 


I 


FL8UF 





5h70 
5471 
5472 
5473 
5474 
5475 
5476 
5477 
5500 
5501 
5502 
5503 
5504 
5505 
5506 
5507 
5510 
5511 
5512 
5513 
5514 
5515 
5516 
5517 
5520 
5521 
5522 
5523 
5524 

5525 
5526 



3i2t> 
Tb04 
0012 
7640 
4433 
7604 
0013 
7650 
5322 
7301 
4453 
1151 
0325 
4450 
7326 
445i 
4432 
7000 
1151 
1015 
4450 
4432 
7000 
1151 
0325 
3151 
7301 
4453 
5726 

7577 
COOO 



/GET FIRST WORD 
/STORE IN BUFFER 
/GET SECOND WORD 
/COMPLEMENT IT 
/STORE IN BUFFER 
/UPDATE COUNTER 
/MORE WORDS TO GO 

/HAKE WORD IN BUFFER 
/BUFFER FULL 



/ROUTINE TO CHECK FOR ^AIT AND RECALIBRATE 



scrPE* 



OCA 


TOTST 


/SAVE SCOPE LOOP POINTER 


LAS 




/GET SWITCH 7 


AND 


K0020 


/MASK 


5ZA CLA 




/WAIT LOOP? 


WATISZ 




/YES 


LAS 




/GET SWITCH 6 


AND 


K0040 


/MASK 


SNA CLA 




/IS IT CLEAR DISK 


JMP 


NOCLR 


/NO, DON'T 


CLA CLL 


I AC 


/ENABLE CLEAR CONTROL 


CLRALL 




/CLEAR CONTROL 


TAD 


CMPEG 


/GET LAST COMMAND 


AND 


K7S77 


/MASK OUT SET DONE 


LDCMD 




/LOAD COMMAND 


CLA CLL 


CML RIL 


/ENABLE RECALIBRATE 


CLRALL 




/RECALIBRATE 


SKP^AT 




/WAIT FOR FIRST DONE 


NOP 






TAD 


CMBEG 


/LAST COMMAND 


TAD 


K0300 




LDCMD 




/LOAD COMMAND 


SKPWAI 




/hAlT FOR SECOND DONE 


NOP 






TAD 


CMRtG 




AND 


K75 77 


/MASK SET DONE 


DCA 


CMPEG 




CLA CLL 


lAC 


/ENABLE CLEAR CONTROL 


CLRALL 




/CLEAR CONTROL 


JHP I 


TOTST 


/GO TO TEST 



K7577, 7577 
TOTST, 0 
/ 

/ROUTINE TO GET ALL REGISTERS 

/(NOTEI THIS ROUTINE WILL CAUSE ONE MAINTENANCE 
/DATA BREAK TU LOCATION 0 IF THE LAST PREVIOUS 
/FUNCTION EXFC'.'TED «AS A READ DATA BREAK.) 



5b71 0000 

5530 7604 

5b3l 0011 

5532 7650 



GTPEG, 0 

LAS 
AND 

SNA CLA 



/GET SWITCH 8 
/MASK 

/«yAS IT GET ALL REGISTERS 



Vi42 
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5533 
5534 
ibib 
55 3b 
953? 
5540 
5541 
5542 
5543 
5544 
55 4 5 
5546 
5541 
5550 
5551 
555 2 



5727 
23?7 
4444 
445b 
7300 
4451 
7J32 
4455 
4454 
4446 
4445 
4462 
7301 
4453 
1124 
5727 



GTP£G 



JMP I 
ISZ 

RDSTAT 

CLA CLL 
LDCUR 

CLA CLL CML RTR 

LDMAN 
RDCHC 
PDADD 

CHLF 

CLA CLL lAC 
CLRALL 

TAD K7600 
JHP I GTPEG 



/NO, 00 BACK 

/¥E5» UPDATE POINTER 

/READ STATUS 

/READ LOWER BUFFER 

/SEI CA TO 0 FOR BREAK 
/EN&BLE SHIFT TO LOWER BUFFER 
/BRLAK IT LAST BREAK WAS A READ 
/BEAD CRC 
/READ TRACK 
/READ COMMAND 

/E.MABLE CLEAR CONTROL 
/CLtAR CONTROL 



/tXIT 

/ROUTINE TO SEND DRIVES ON AN OVERLAP SEEK 



5553 


0000 


DOUT, 


0 






5554 


3327 




OCA 


GTREG 


/SAVE ADDRESS 


555b 


7004 




RAL 






5556 


1070 




TAD 


DKIVNO 


/GET CURRENT DRIVE 


5557 


4450 




LDCMD 




/LOAD COMMAND REGISTER 


5560 


1151 




TAD 


CMREG 


/GET LAST COMMAND ISSUED 


S561 


U03 




TAD 


K3000 


/ADD IN SEEK ONLY FUNCTION 


5562 


1157 




TAD 




/ADD IN CURRENT FIELD 


5563 


4450 




LDCMD 




/LOAD COMMAND REGISTER 


5564 


1 327 




TAD 


GIREG 


/GET SAVED ADDRESS 


5565 


4452 




LDADD 




/LOAD AND GO 


5566 


4447 




DSKSKP 




/WAIT rOR FIRST DUNE FLAG 


5567 


5366 




JMP 


.•1 


/HANG IF NQ SKIP 


5570 


5753 




JMP I 


DOUT 


/DISK tS OUT 



/ 

PAGt 
/ 

/HOUTINE TO RtAD UR i^HlTE ON DISK 
/RETURN ♦! SKIP OR STATUS ERROR 
/RETURN +2 O.K. 



5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
5610 
56U 
5612 
5613 
5614 
5615 
5616 



0000 
3254 
7340 
3173 
1600 
3174 
2200 
1151 
0255 
1157 
1070 
4450 
1067 
4451 
1254 



DISKGi 



DCA SAVTRK 
CLA CLL CHA 



DCA 
TAD I 
DCA 

rsz 

TAD 

AND 

TAD 

TAD 

LDCMD 

TAD 

LDCUR 

TAD 



SOFERR 

DISKG 

SAVPCT 

DISKG 

CMREG 

K7501 

HUMkiMA 

DHIVNO 

BGN'bUF 



/SAVE TRACK ADDRESS 

/SET CRC ERROR FLAG 

/GET TEXT POINTER 

/SAVE IT 

/UPDATE POINTER 

/GET COMMAND 

/MASK OFF 

/CURRE^JT FIELD 

/CURRENT DRIVE 

/LOAD COMMAND 

/GET BEGINNING OF BUFFER 

/LOAD CURRENT ADDRESS 

/GET TRACK ♦ SECTOR 



■LIO 


V142 


20-DEC- 


73 


lil54 PI 


5617 


4452 




LDADD 




5620 


4432 




SKP»nAT 


% 5 


5621 


5 234 




JMP 


SKPERR 


5622 


7 3 30 




CLA CLL 


CML RAR 


5633 


3144 




DCA 


GDREG2 


5624 


4444 




RDSTAI 




5625 


1104 




TAD 


K4000 


5626 


■>640 




S2A CLA 




5627 


5236 




JMP 


STAtRR 


5630 


1167 




TAD 


K5373 


5631 


2200 




ISZ 


DISKG 


5b32 


3574 


PETHN, 


DCA I 


SAVPCT 


5633 


5600 




JMP I 


DISKG 


5634 


U66 


SKPERH* 


TAD 


K0306 


5635 


52 32 




JMP 


RtTRN 


5636 


1147 


STAEPKf 


TAD 


STREG 


5637 


OOU 




AND 


KOOlO 


5640 


7650 




SNA CLA 




5641 


5252 




JHP 


HRDERR 


5642 


7300 




CLA CLL 




5643 


1151 




TAD 


CMREG 


5644 


0106 




AND 


K7000 


5645 


no5 




TAD 


K6000 


5646 


7630 




SZL CLA 




5647 


5252 




JMP 


HRDERR 


5650 


3173 




DCA 


SOFEPB 


5651 


5230 




JMP 


RtTRN -2 


56S2 


ino 


HRDERRf 


TAD 


K5300 


5653 


5232 




JMP 


RETKN 


5654 


0000 


/ 

SAVTPKr 


0 




S655 


7501 


K750l» 


7501 





/LOAD AND CO 
/WAIT FOR DISK SKIP 
/EPRHR, NO SKIP 
/EXPECTED STATUS 
/SETUP COMPARE REGISTtP 
/READ STATUS 

/*A5 STATUS 4000 

/ERROR* STATUS 

/TEXT POINTER 

/UPDATE FOR GOOD RETURN 

/STORE IN TEXT POINTER 

/EXIT 

/SKIP TEXT POINTER 
/EXIT 

/GET STATUS JUST READ 
/MASK OUT CRC ERRORS 
/WERE THERE ANY 
/fiO, OTHERS 

/GET LAST COMMAND 

/MASK FUNCTION 

/ADD IN FUDGE FACTOR 

/WAS IT A READ ALL OR READ 

/NO, MUST BE A WRITE 

/SET CRC ERROR FLAG 

/CO CHECK DATA OR RETURN' 

/EXIT 



/ROUTINE TO COMPARE WQRDS IN BUFFER TO 

/KNOWN DATA PATTERN IN THE AC, 

/ 



5656 


0000 


FGUREf 


0 






5657 


3144 




DCA 




GDREG2 


5660 


1067 




TAD 




BGNBUF 


5661 


3154 




DCA 




ADRCG 


5662 


ii5i 




TAD 




ChREG 


5663 


0100 




AND 




K0007 


5664 


T041 




CIA 






5665 


1554 




TAD 


1 


ADREG 


5666 


7650 




SNA 


CLA 




5667 






JMP 




.♦4 


5670 


1151 




TAD 




CMRLG 


5671 


oioo 




AND 




K0007 


5672 


5343 




JMP 




DTEKR 


!>b7 j 


2154 




rsz 




ADREG 


5674 


1554 




TAD 


I 


ADPEG 


5D7b 


■»041 




CIA 






567b 


1152 




TAD 




DAREG 


5677 


7650 




SNA 


CLA 




5700 


5303 




JMP 




.♦3 



/SAVE FOR ERROR PRINTER 
/GET START OF BUFFER 
/SAVE FOR ERROR PRINTER 
/GET DISK NO, AND EXT, BIT 
/MASK THEM 

/GET FIRST TRACK v«.OHO 

/WAS IT 0,K, 7 

/\r.&, CHECK NEXT TRACK WORD 

/GET DISK NU. AND EXT, BIT 

/MASK THFM 

/UATAERROR 

/UPUATE ADDRESS 

/GFT SECOND WORD 

/COMPARE TO ADDRESS 

/WAS SECOND TRACK WqRD O.K. 

/YE5# NOW CHECK DATA 



.MO 


V142 


20»DEC 


• 75 
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5701 


1152 




TAD 


DABLG 


/GET GOOD INFO 


5702 


5 3 4 3 




JMP 


DTERP 


/DATA ERROR 


5703 


732t> 




CLA CLL 


ChL RTL 




5704 


U23 




TAD 


K7400 




5705 


3164 




DCA 


DATCNT 


/SETUP COUNTER 


570t> 


2154 


LPFIG, 


ISZ 


ADPtG 


/UPDATE ADDRESS 


5707 


1554 




TAD ! 


ADREG 


/GET DATA WURD 


5710 


7041 




CIA 






5711 


1144 




TAD 


GDREG2 


/COMPARE 10 GOOD ONE 


5712 


7640 




S2A CLA 




/WAS ^ORD O.K.? 


57U 


5344 




JMP 


DTEHB ♦! 


/f.0, DATA ERR13R 


5714 


1144 




TAD 


GDREG2 


/GET CDOD DATA 


5715 


7040 




CMA 






5716 


3144 




DCA 


GDRtG2 


/IT IS A COMPLEMENT DATA 


5717 


2164 




ISZ 


DATCNT 


/UPDATE BUFFER COUNTER 


5720 


530b 




JMP 


LPFIG 


/MORE TO CHECK 


5721 


2154 




ISZ 


ADREG 


/UPDATE ADDRESS 


5722 


1101 




TAD 


K1234 




6723 


7041 




CIA 






5724 


1554 




TAD I 


ADREG 


/GET aORD in buffer 


5725 


7650 




SNA CLA 




/WAS IT O.K. 


5726 


533 1 




JMP 


.t3 


/YES ALL DATA O.K. 


5727 


1101 




TAD 


Kt234 




5730 


5343 




JMP 


OTCHR 


/«ORD LOST IN SUFFER +1 


5731 


7 33 0 




CLA CLL 


ChL RAP 


/EXPECTED STATUS 


5732 


3144 




DCA 


GDREG2 


/SETUP COMPARE REGISTER 


573i 


11^3 




TAD 


SOrERR 


/GET CRC ERROR FLAG 


5 7 34 


7b40 




SZA CLA 




/aAS IT SET 


5735 


5656 




JMP I 


FGURE 


/NO THE BUFFER IS O.K. 


5736 


7340 




CLA CLL 


CMA 


/SETUP CRC FLAG 


573? 


3173 




DCA 


SOFERR 


/RESET FLAG 


5740 


1170 




TAD 


K5300 


/TEXT •'ESS 


5741 


3574 




DCA I 


SAVPCX 


/SETUP TEXT POINTER 


5742 


7 330 




CLA CLL 


CML RAR 




5743 


3144 


DTERP, 


DCA 


GDREG2 


/SETUP COMPARE 


5744 


1554 




TAD I 


ADREG 


/GET BAD itORD 


5745 


3155 




DCA 


DTREG 


/SAVE FOR PRINTER 


5746 


2256 




152 


rCURE 


/UPDATE FOR ERROR RETURN 


5747 


5656 




JMP I 


FGURE 




5750 


2003 


t 

TEXPC* 


TEXT 


upCl" 




5751 


7200 










5752 


0704 


TEXGD, 


TEXT 


"GDI" 




5753 


7200 










5754 


0322 


TEXCR# 


TEXT 


"CRI" 




5755 


7200 










5756 


2324 


TEXST, 


TEXT 


«STl" 




5757 


7200 










5760 


0402 


TEXDP» 


TEXT 


"DBI" 




5761 


7200 










5762 


0315 


TEXCM, 


TEXT 


"CM|» 




5763 


7200 










5764 


0401. 


TEXDA/ 


TEXT 


"DAI" 




5765 


7200 










5766 


0301 


TEXCA, 


TEXT 


-CAI" 





PALIO V142 



5767 
5 7 7 0 
5771 
5772 
5773 



6000 
f GOi 
6O02 
6U0 3 
6004 
600S 
6006 
6007 
6010 
6011 
6012 
6013 
6014 
6015 
6016 
6017 
6020 
6021 



6024 
6025 
6026 
6027 



7200 
OIOh 
7200 
0424 
7200 

6000 



0000 
7 300 
1 13U 
3134 
7330 
445& 
7yl0 
4455 
7010 
4455 
2134 
5211 
7300 
1012 
4455 
3146 
1130 
3134 



6022 7332 

6023 4455 



7010 
4455 
2134 
5225 



TEXAP, TEXT 
TEXDT, TEXT 
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"ADI" 
"OTI" 



/SUBROUTINE TU SHIFT CRC REGISTER TO DATA 
/BUFFtP THEN kEAD IT, 



CLA CLL 
TAD .yi2 
DCA SBCNTl 
CLA CLL CML PAR 

RAP 
LU^'AN 
RAP 
I, OMAN 
ISZ 
JHP 

CLA CLL 
TAD 
LDMAN 

DCA CKPEG2 
TAD M12 

DCA sacMi 

CLA CLL CML RTR 

LDMAN 

RAP 

LDMAN 

ISZ SBCNTl 
JHP ,•2 



SBCNTl 
.-2 



K0020 



/12 SHIFTER 

/LOAD MAINTENANCE 

/LOAD MAINTENANCE 

/LOAD AND GO 

/12 BIT SHIFT 

/ENABLE READ BUFFER 

/SAVE IT 

/12 BIT SHIFTER 

/LOAD MAINTENANCE 

/LOAD AND GO 

/12 BIT SHIFT 



6030 
6031 
6032 
6033 
6034 



603fa 
6u37 
6040 
6041 ■ 

6043 
6044 
6045 
6046 



7300 
1012 
4455 
0116 
3145 



6035 5600 



0000 
3134 
1134 
7010 
7012 
0100 
1 26 4 
4436 
1134 



CLA CLL 

TAD K0020 

LDMAN 

AND K0017 
DCA CRPEGl 
JMP I PDCR 

/ 

/SUBROUTINE TO PRINT TWQ OCTAL 



0 

DCA 

TAD 

RAR 

RTR 

A^D 

TAD 

TYPE 

TAD 



SBCNTl 
SBCNTl 



K0007 
K02b0 



/ENABLE READ SUFFER 



/SAVE OTHER HALF 
/EXIT 



/PRINT FIRST BYTE 



PALIO VH2 



6047 


0100 




kUO 


K0007 


6050 


1264 




TAD 


K0260 


6051 


4436 




TYPiL 




6052 


5636 


/ 


.I,«P I 


TOCT 






/ 

/HOUTi^t TO DU 


CRLF 


605i 


Oi)00 




5 




6054 


7300 




CLA CLL 




6055 


126 2 




TAD 


K0215 


605b 


443b 




TYPE 




6057 


1 263 




TAD 


K02i 2 


6060 


4436 




TXPE 




6061 


5653 


/ 


JMP I 


UPONE 


6062 


0215 


K02i5, 






606 3 


0212 


K02i2, 


C212 




6064 


0260 


Ku2b"» 


0260 




606b 


0240 


KO240, 


0240 








/POUTINL TO PHINT FOUj 


6066 


noOO 


FROCT, 


0 




6067 


7006 




PTL 




6070 


7006 




SIl 




6071 


3253 




DC A 


UPONE 


6072 


U31 




TAD 


M4 


6073 


3236 




OCA 


TOCT 


6074 


1253 




TAD 


UPONE 


6075 


OlOO 




AND 


K0007 


6076 


1264 




TAD 


K0260 


6077 


4436 




TYPE 




6100 


1 253 




TAD 


tiPONE 








OIL 




6102 


7004 




BAL 




6 i 0 i 


3 25 3 




DCA 


UPONE 


6 104 


2236 




ISZ 


TUCT 


610b 


5274 




JMP 


.-u 


6106 


1265 




TAD 


K0240 


6107 


4436 




TYPE 




6tl0 


5666 




JMP I 


FBOCT 






/SUBROUTINE TO 


PRINT : 


6ni 


oooo 




0 




6112 


7300 




CLA CLL 




6113 


17U 




TAD I 




6114 


2311 




ISZ 


PHN 


6115 


326b 




DCA 


FKOCT 


61U 


)66b 




TAD I 


FHOCT 


6117 


Olio 




fc-SD 


K7700 



/PRINT SECOND BIT 
/EXIT 



/GET POINTER 



PALIO 


V142 


20-DEC 


-73 


UI54 


6120 


7450 




SNA 




6 121 


5345 




JHP 


EXIT 


6122 


7500 




Sf^A 




6 1 ?3 


7020 




CML 




6124 


700 1 




lAC 




6l2b 


7012 




RIP 




6126 


7012 




RTB 




6127 


7012 




PTR 




6130 


4436 




TYPE 




6131 


\ 666 




TAD I 


FHOCT 


6132 


0111 




AND 


K0077 


6133 


7450 




SNA 




6134 


5345 




JMP 


EXIT 


6135 


1350 




TAD 


K3740 


6136 


7!500 




SMA 




613? 


1 347 




TAD 


K4100 


6140 


1265 




TAD 


K0240 


6141 


4436 




TYPE 




6142 


2266 




ISZ 


FROCT 


6143 


7300 




CLA CLL 




6144 


5316 




JMP 


PRN + 5 


614S 


7300 


EXiTi 


CLA CLL 


PRN 


6146 


5711 




JMP 1 


6147 


4100 


/ 

K4i00, 


4100 




6150 


3740 


K3740, 


3740 








/POUTXNE TO TYPE 


6151 


0000 


PBlNTi 


• 0 




6152 


6046 




TLS 




6153 


6041 




TSF 




6154 


5353 




JMP 


.-1 


6155 


6042 




TCF 




61S6 


7200 




CLA 


PRINT 


6157 


5751 


/ 


JMP I 




6200 


PACE 
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6200 
6201 
6202 
6203 
6204 
6205 
6206 
6207 
6kl0 
6211 
6il2 
6213 



0000 
7300 
1600 
3315 
2200 
1200 
3215 
1070 
1157 
4450 
7326 
4453 



/ROUTINE TO RECALIBRATE SELECTED DRIVE OR 
/SEEK ONLY POSITION IN AC ON SELECTED DRIVE, 
/ 

RE5T0R* 



0 




CLA CLL 




TAD 1 


RE5T0R 


DCA 


SAVPC 


ISZ 


RESTOR 


TAD 


RESTOR 


DCA 


ONLY 


TAD 


DRIVNO 


TAD 


HUMt»«A 


LDCMD 




CLA CLL 


CML RTL 


CLRALL 





/GET TEXT POINTER 
/SAVE FOP ERROR 
/UPDATE PC 
/GET PC 

/SAVE FOR END OF SEEK ROUTINE 

/CUHRENT DPIVt 

/CUKRENT FIELD 

/LOAD COMMAND 

/ENABLE PECALiBHATE BIT 

/"RECALIBRATE" 



frLi 0 


V I 42 


3 






6214 


5232 




CHECK 


/CHECK FOR ERRORS 


6 215 


0000 








6 216 


3i 1 6 


DC A 


^AVXO 


/SAVE LUwEP TRACK BITS 


6 2 17 


16 15 


TAD I 




/GET TEXT POINTER 


6 2 ?0 


3 3 15 


DC A 


SAVPC 




62 2 1 


2 215 


I S Z 


r ^B^r 




6 2 2 2 


1151 






/GET COMMAND 


622 3 


00'' 2 






/MASK OFT EXTENDED BIT 


6 2 24 


115? 


TAD 




/CUPRENI EltLD 


6 2 25 


i 0 7 0 




n ti T V w n 


/CURRENT DRIVE 


62 26 


110 3 


TAD 


K3000 


/SEEK ONLV function 


6227 


4450 


LDCMD 






6 2 3 0 


1316 




SA 


/GET POSITION 


62 3 1 


4452 


LD ADD 




/LOAD AND GO 


6 2 3 2 


44 3 2 


r*UI7/"V C &^ D 1^ K T 




/WAIT FUR FIRST DONE FLAG 


6 2 3 3 


5 313 




5 b ki H 1 


/ERRORf NQ SKIP 


6 2 34 


7 3 30 


CL» CLL 


CML PAP 


/EXPECTED STATUS 


62 3b 


3144 


OCA 


GD REG2 


/SETUP COMPAf^C REGISTER 


6236 


1122 


TAD 


K7 7 40 




6237 


33 20 


ncA 


RN AD 


/sptup skip TIM^R 


62 40 


4444 


RDSTaT 




/READ ■ STATUS 


6241 


U04 


TAD 


K 4000 




6242 


7650 


SNA CLA 






62 4 3 


5 2 5 2 




+ 7 


/YES 


6244 


1 105 


TAD 


K6 0 0 0 


/NOi drive MUST BE BUSYi 


6245 


3144 


DC A 


GDPtG2 




6246 


1147 


TAD 


SIRSG 




6 2 4 7 


1102 


TAD 


K2 0 0 0 


/ADD IN FUDGE FACTOR 


6250 


7b40 


S2A CLA 




f rt 1^ O U"X*t OwOi 


6 251 


5 310 


JMP 


SEKEP2 


/ N 0 « ERROR 


6252 


1015 


TAD 


K0200 


/ENABLE SET SECOND DONE FLAG 


6 25 3 


1151 




ChPEG 


/ORIGINAL COMMAND 


6 25 4 


4450 


LDC MD 




/LOAD COMMAND 


6 255 


^ ^ ? 


CLA CLL 


CML RTR 




6 25 6 


314 4 






/EXPECTED STATUS 


6 25 7 


4 4 4 4 


CHKSKr» RDSTAT 




/READ STATUS 


6 260 


44 47 


DSKSK P 




/FLAG SET? 


6 261 


4 1 0 






/NO 


6262 


5 2 7 3 




r ri T <; K D 


/^ES GOT ITl 


6 26 3 


1105 




K 6 0 0 0 




6264 


7 6 4 0 


SZ A CLA 




/DRIVE KUSY? 


6 265 


« ^ 1 




5 L K E H 2 


/NOf ' ERROR 


6 26fc 


2 36 4 




n IN W n U H 




6 26 7 


5 25 7 




C H K S K p 






» ? 


T S7 






6 27 1 


5 25/ 


JMP 


C H ^ o ^ P 




6 2 7 2 


5 313 




sr K E P 1 


/ERROPf fJO SKIPI 


62"' 3 


7 3 30 


GQTSKF# CLA CLL 


L n Li n A p 




6 27 4 


314 4 


DC A 


GDREG2 


/SETUP EXPECTED STATUS 


hilb 


4444 


POSIAT 




/HEAD STATUS 


h2Tb 


1 104 


TAD 


K4000 






7640 


SZA CLA 




/wAS IT ONLY DONE FLAG 


6300 


S310 


JMP 


SiLK£;R2 


/NO, ERROR STATUS 


6iOl 


U5i 


TAD 


CMRCG 


/GET LAST COMMAND 



PALIO V142 



*i02 
6303 
6304 
6i05 
6306 
6307 
6310 
63U 
6312 
6313 
6314 



0317 
4450 
3144 
4444 

7t.50 
2215 
1170 
371b 
5615 
1 166 
5311 



SEKEP2, 
G08AK, 



AUD 

LDCMD 

DCA 

PDSTAT 
SNA CLA 
JSZ 
TAD 
DCA I 
JMP I 
TAD 
JMP 
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A7577 

GDBEG2 



ONLi: 

K5300 

SAVPC 

ONLY 

K0306 

GOBAK 



/MASK OUT 

/CLEAH STATUS 

/SETUP COMPARE REGISTER 

/READ STATUS 

/WAS STATUS 0000? 

/UPDATE PC 

/SETUP TEXT POINTER 
/BACK to TEST 
/SKIP TEXT POINTER 
/EXIT 



6315 


0000 


SAVPC, 


0 








631b 


oooo 


SAVTC, 


0 








6317 


7&77 


A7577, 


7b77 












/POUTINE TO GET 


A RANDOM DISK 


ADDRESS 




6320 


OOOO 


RnAD, 


0 








6 32 1 


3 360 




DCA 


SAVPOT 




/SAVE DISK NO, POINTER 


6322 


7 101 




CLL lAC 








6323 


I 362 




TAD 


RNWRDl 






6324 


1363 




TAD 


PNWRD2 






6325 


7106 




CLL RTL 








6326 


3362 




OCA 


RNWRDl 






6327 


1363 




TAD 


RNWRD2 






6330 


7012 




PTR 








6331 


1 362 




TAD 


RNWRDl 






63 32 


3 363 




OCA 


RNWBD2 






6333 


1363 




TAD 


RNWRD2 






6334 


7420 




SNL 








6 3 3b 


5341 




JMP 


GOTADD 




/USE THIS AS DISK AOOI^ESS 


6336 


1172 




TAD 


ENDTRK 




/HAVE TO CHECK BOUNDARIES 


6337 


7200 




CLA 








6340 


1363 




TAD 


RNWRD2 




/GET SAME 


6341 


3364 


GOTADD, 


DCA 


RNWRD4 




/SAVE WORD 


6342 


1361 




TAD 


DSKSAV 


/GET 


POINTER 


6343 


1360 




TAD 


SAVPOT 




/ADD IN DRIVE NUMBER 


6344 


3360 




OCA 


SAVPOT 




/MAKE ADDRESS 


6345 


1364 




TAD 


RNWRD4 




/GET rtORD 


6346 


3760 




DCA I 


SAVPOT 




/STORE IT 


6347 


1360 




TAD 


SAVPOT 






6350 


1075 




TAD 


K0004 




/ADD IV FUDGE FACTOR 


6351 


3360 




DCA 


SAVPOT 




/MAKE ADDRESS 


6352 


7 004 




PAL 






/GET THE LINK 


6353 


3760 




DCA I 


SAVPOT 




/SAVE EXTENDED SIT 


6354 


1760 




TAD I 


SAVPOT 




/GET IT 


6355 


7110 




CLL RAP 






/SHIFT 


635b 


1 364 




TAD 


PNWRD4 




/GET WORD 


6357 


5720 




JMP I 


RNAO 




/EXIT 


6 360 


OOOU 


/ 

SAVPDT# 


0 








6361 


6365 


DSKSAV , 


DSKOA 








6362 


1234 


Pf*>-HDi # 


1234 








6363 


2345 


RNWRD2* 


2345 









PALiO Vi42 
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6H4 
6^65 
6366 
636? 
6)ly 

63U 
63M 



0000 
0000 
0000 

ooou 

0000 
0000 
0000 

nooo 

POOD 



RNWRD4 ( 
DSKOA f 

0SK2B, 
DSKiB» 



6400 PAGE 



/SUBROUTINE TuP "NO ERROPS 
/LOOPS, UPDATt UP CQUNTEB 



' And SCOPE 

'REGl« ON EVEKY ENTBY, 



640U 


OOOU 


NtP-RO# 


0 






640i 


2200 




ISZ 




NEPPQ 


6402 


7 300 




Clk 


CLL 




6403 


1600 




TAD 


I 


NtPHO 




3 i 7 b 




DCA 




PtSTPI 


6405 


7604 




LAS 






640t> 


oois 




AND 




K0200 


6407 


7b40 




SZA 


CLA 




64i0 


7402 


STPHLTf 


HLT 






64U 


7604 




LAS 






6412 


7004 




PAL 






6413 


7700 




ShA 


CLA 




6414 


5217 




JMP 




. + 3 


&41& 


1600 




TAD 


I 


NERHO 


64 i 6 


5631 




JMP 


I 


NSCOPE 


6417 


iU2 




TAD 




P£GO 


6420 


7640 




SZA 


CLA 




6421 


5224 




JMP 




NEXTST 


6422 


2133 




ISZ 






6423 


5575 




JMP 


I 


PESTRT 


6424 


7301 


NEXTST, 


CLA 


CLL 


I AC 


6425 


44S3 




CLBALL 




6426 


2200 




ISZ 






6427 


2200 




ISZ 




NERPO 


6430 


5600 




JMP 


I 


NEBRO 


6431 


B470 


/ 

NSCOPt, 


SCOPE 





6432 
6433 
6434 
643S 
6436 
6437 
6440 
6441 
6442 



oooo 

3144 
1067 
3154 
1151 
0100 
7 041 
1554 
76S0 



f 

/KOUTiNt TO DU HALF BLOCK DATA CHfcCKS 



6443 5247 



0 

DCA 
TAD 
DCA 
TAD 
AND 
CIA 
TAD I 
SNA CLA 
JMP ■ 



GDPtG2 

BGNbUr 

ADPEG 

CKPiG 

K0007 

ADPEG 



/GET RESTART ADDRE&S 

/STORE 

/GET SWITCH 4 
/HASK 

/PROGRAM HALT 

/STOP HALT FROM SWR4»i 

/GET SWITCH I 

/IS IT SCOPE LOOP 
/NO 

/GET RETURN POINTER 
/CHECK FOR WAIT AND RETURN 

/i OR 4096 PASSES 
/i PASS PER TEST 
/UPDATE UPCOUNTER 
/BACK TO SAKE TEST 
/ENABLE CLEAR CONTROL 
/CLEAR CONTROL 
/UPDATE PC STORE 
/UPDATE PC STORE 
/TO NEXT SEQUENTIAL TEST 



/SETUP FOR ERROR PRINTER 
/GET START OF BUFFER 
/FOR ERROR PRINTER 



/COMPARE TO BUFFER WORD 

/SAME ? 

/YES 



PALIO V142 



6444 


1151 


644S 


0100 


6446 


5330 


6447 


2154 


6450 


1554 


6451 


7041 


6452 


1152 


6453 


7650 


6454 


5257 


6455 


1152 


6456 


5330 


6457 


2154 


6460 


7326 


6461 


1124 


6462 


3164 


6463 


1554 


6464 


7041 


646b 


1144 


6466 


7640 


6467 


5331 


64?0 


2154 


6471 


1144 


6472 


7040 


6473 


3144 


6474 


2164 


6475 


5263 


6476 


1124 


6477 


3164 


6500 


3144 


6501 


1S54 


6502 


7640 


6503 


5 3 30 


6504 


2154 


6505 


2164 


6506 


5301 


6507 


1554 


6510 


7041 


6511 


uoi 


6512 


7650 


6513 


5316 


6514 


1101 


6515 


5330 


6516 


7 330 


6517 


3144 


6520 


1173 


6521 


7640 


6522 


5632 


6533 


7340 


6524 


3i73 




1170 




5b74 


6527 


7330 


6530 


3144 


6531 


1554 


6532 


3155 



HFRlf 



73 




UI64 F 


TAD 




CHPEG 


AND 




K0007 


JMP 




HFERR 


ISZ 




ADPEG 


TAD 


I 


AORLG 


CIA 






TAD 




DAREG 


SNA 


CLA ■ 




JMP 




. + 3 


TAD 




DAPEG 


JMP 




EHP 


ISZ 




ADPLG 


CLA 


CLL 


CML RTL 


TAD 




K7600 


DCA 




DATCNI 


TAD 


I 


ADPEC 


CiA 






TAD 




GDREG2 


SZA 


CLA 




JMP 




HFEBR +1 


ISZ 




ADPEG 


TAD 




GDPLG2 


cma 






DCA 




GDREG2 


ISZ 




DATCWT 


JMP 




HFRl 


TAD 




K7600 


DCA 




DATCNT 


DCA 




GDREG2 


TAD 


I 


ADREG 


SZA 


CLA 




JMP 




HFERR 


ISZ 




ADPEG 


ISZ 




DATCNT 


JMP 




HFR2 


TAD 


I 


ADREG 


CIA 






TAD 




R1234 


SNA 


CLA 




JMP 




. + 3 


TAD 




Ki234 


JMP 




HFERR 


CLA 


CLL 


CML RAR 


OCA 




GDREG2 


TAD 




SOFEPR 


S2& 


CLA 




JMP 


I 


HFCHK 


CLA 


CLL 


CMA 


DCA 




SOFtPP 


TAD 




K5300 


DCA 


I 


SAVPCl 


CLA 


CLL 


CMl RAP 


OCA 




GDPbG2 


TAD 


I 


ADPEG 


DCA 




DTPEG 



PAGE l»69 



/fJD 

/UPDATE ADDRESS 



/COMPARE TO DISK ADDRESS 

/SAME???? 

/YES 

/NO 

/UPDATE ADDRESS 

/SETUP COUNTER FOR FIRST HALF 

/COMPARE TO GOOD VALUE 
/WERE THEY THE SAME 
/ERROR, DATA BREAK 
/UPDATE ADDRESS POINTER 

/NEXT WORD IS COMPLEMENT 
/MORE TO TEST IN FIRST HALF 
/SETUP COUNTER 

/PEST OF BUFFER SHOULD BE 0000 

/WAS IT 0 
/ERROR 



/MORE TO CHECK 

/GET WORD IN BUFFER +1 



/WAS IT O.K.? 
/YES 

/ERROR, BUFFER +1 
/EXPECTED STATUS 
/SETUP COMPARE REGISTER 
/GET CPC ERROR FLAG 
/WAS IT SET 
/NO ERRORS 

/RESET CPC ERROR FLAG 

/TEXT 

/SFX UP POINTER 
/tXpECTED STATUS 
/SETUP COMPARE 
/GET BAD WORD 
/SAVE FOP PRINTER 



PALIO V142 



6533 2232 

6534 5bJ2 



20-DEC-73 



13154 PACK 1-70 



HFCHK 
I HFCHK 



/ROUTlNfc in CHANGE I'ROGHfcM OEVICF. CoOtS 



6i»35 


7b04 




LAS 




6536 


Ol2b 




AKD 




6537 


3232 




DC A 




6540 


1360 




TAD 




6541 


3200 




DC A 




6542 


1361 




TAD 




6543 


3357 




DC A 




6544 


1757 


CHANGR, 


TAD 


I 


6545 


3000 




DC6 


I 


6546 


1400 




TAD 


6547 


0127 




AND 




6550 


1232 




TAD 


I 


6551 


3400 




DCA 


6552 


2357 




I5Z 




6553 


2200 




1S2 




6554 


5344 




JMP 




6555 


. 7402 


CHNHLI* 


HLT 




6556 


5355 




JMP 





6557 

6560 

6561 

6562 

6563 

6564 

6565 

6566 

6567 

6570 

6671 

6572 

6573 

6574 

6575 

6576 

6577 

6600 

6601 

6602 

6603 

6604 

6605 

6606 

6607 

6610 

6611 

6612 

6613 

6614 



0000 

7745 

6562 

5334 

5341 

5322 

5314 

5301 

5330 

5345 

2676 

270? 

2675 

2671 

2700 

2673 

3026 

3052 

3025 

3021 

3030 

3023 

2016 

2032 

2027 

2032 

2073 

2077 

2104 

2110 



K0770 

HFCHK 
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"STATUS REGISTER ERROR" 
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EPTX6, TtXT "DATA PEGlSTER EPROR'* 



ERTX7r TfcXT "DISK SKIP ERROR" 



EBTX9> TEXT "DISK INTERRUPT ERROR* 



TEXEND, TEXT "RK8E DRIVE CONTROL TEST PASS COMPLETE" 
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3100 

3200 

0351 

3253 

3301 

3400 

3452 

3515 

3600 

0360 

0400 

0415 

0431 

0457 

4060 

4461 

4436 

6053 

4433 

7000 

5247 

0053 

0042 

0043 

0062 

0021 

002S 

0020 

0040 

0027 

0030 

0060 

4164 

5160 

0026 

0064 

0041 

0031 

416S 

0052 

0051 

0050 

0055 

0063 

0037 

0023 

4166 

0036 

0057 



XRDAD 


0046 


XPDBF 


0056 


XRDCM 


0045 


XPDCP 


0054 


XRDST 


0044 


XFEG 


S162 


XRE5TR 


0024 


XRNAD 


0032 


X5DKP 


0047 


XSKMAT 


0032 


XTEXT 


5161 


XIOCT 


0061 


XWTIS2 


0033 



PALIO V142 20-DEC-73 Ul54 PAGt 1-79 

KPROPS DETECTEDI 0 
LINKS GENF.HATEDl 7 
RUN-TIMC; 23 SECONDS 
3K COPE USED 



9. 



